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Greetings! Perhaps you're concerned that I have abandoned Northern 
Bytes, but that Is not so. Unfortunately, Northern Bytes Is not a profit 
making venture, and I have had to seek other recompense Just to pay 
the heat bill (a very important consideration in Michigan). 

This means that If you need technical questions answered, phones will 
only be answered between seven and ten, Michigan time, during most 
evenings. At other times expect an answering machine, or worse. 

These actions are necessary In order to keep Northern Bytes going. The 
thought of discontinuing publication has crossed my mind, but the 
abundance of material should be organized. Northern Bytes Is the best 
way I can think of to do that. 

We had been receiving a half dozen newsletters at 704 North 
Pennsylvania. Since Jack officially directed everything to this 
address, the stack of prospective material for Northern Bytes has 
grown to about three feet. Of course, a substantial amount of material 
In that stack is either material reprinted from Northern Bytes or 
MSDOS stuff, but every now and then a TRS-80 gem Is uncovered! 

I would prefer to measure a volume by the amount of material 
published, thus, the volume number will stay at seven for this issue. 
However, this will be the last Issue in Volume Seven, since the amount 
of material is the same as the last two volumes. The next Issue will be 
the first of Volume Eight; that and successive volumes will consist of 
four forty-eight page issues. 

There are a ton of TRS-80 products that are no longer available. The 
manufacturer has quit providing them or went out of business. At least 
a couple calls per week are asking about products such as Vtvace or 
MuMath. Should you be sitting on either of those products, you can 
probably recover most of your investment immediately just by 
dropping me a note. For people looking for old TRS-80 product, or 
others interested In the TRS-80 market, we will immediately start 
accepting classified advertising at the rate of fifty cents per word, 
minimum ten words. Send ad copy, along with payment to 704 N. 
Pennsylvania. 

It sort of bothers me that many people spend more on phone calls than 
most of our products cost. Unfortunately, trying to please everybody 
has let to the demise of more than one software company. The cost of 
software support is expensive. I feel sad for many of the callers that 
own TRS-80 computers. They are now in a situation that TI-99 owners 
were in a couple of years ago. 

The cycle is occurring once again. Rumor has It that the new 
PageMaker software will not run in 640K and there's more to come. 
Northern Bytes has concentrated on assisting you with getting 
maximum value from your 64K machine. There are still many 
applications that could be documented, should you prove interested 
enough. 

I would like to shift the focus of Northern Bytes from low level 
programming to higher level programming. During the next couple of 
issues we will be running a few articles to give you a sample. The 
reasons for doing this are numerous. 

Most important. It will Insure continued support for the TRS-80. 
Folks, it is possible to write one set of program code that will run on 



ALL versions of TRSDOS, CP/M, MSDOS, the Macintosh, the Amiga, 
the Atari ST and the Apple II, and I have done it. That approach could 
have been taken a few years back, and our established software base on 
all machines would be greater. Unfortunately, we take the egocentric 
approach and just worry about the machine at hand. I would like to use 
Northern Bytes to help us reconsider that approach, and make 
programming really versatile. 

Another reason for doing and thinking in terms of compatibility Is the 
old "reinvent the wheel" syndrome. When working with higher level 
languages, it is much easier to pull a useful block of code from ah 
existing application and adapt It to your application or machine. This 
Is particularly Important In a public domain publication such as 
Northern Bytes. Our goal Is to improve the programming performance 
of every reader. This can be achieved by providing a wide selection of 
reusable routines that can be used without fear of copyright violation. 
We dont need to make everyone understand every single byte of code; 
we simply need to tell them how to use It. 

Northern Bytes has always tended to focus on solving problems 
relating to the TRS-80 I/III and 4. Frequently, the solutions have 
tended to utilize the Z80 microprocessor assembly language. Z80 
assembly language or any microprocessor assembly language Is not a 
language that new users master quickly. There Is a very high initial 
learning curve when learning your first assembly language. A single 
command can introduce a brand new set of computer concepts that 
must be understood before that command can be effectively used. When 
Working in an assembly language, many simple functions that we take 
for granted must be written, often requiring hundreds, if not thousands 
of lines of code. Even the transition from TRSDOS to CP/M [both use 
the Z80 microprocessor) can be very tedious even though the 
differences represent only about 10% of the actual code. Translation 
from Z80 to other processor chips generally call for an entire rewrite. 
Z80 assembly language is a "low level" language. 

In high level languages, one simple command may call into play 
hundreds or thousands of lines of preprogrammed code. There has 
been a plethora of compilers and assemblers and intepreters and 
various combinations thereof that allowed you to get the job done, 
albeit with a little hacking, on a TRS-80. The problem is that nobody 
really designed the tools right, as evidenced by the number of hackers 
who tried to do It better. 

MSDOS users have a set of high level languages that will quickly 
generate extremely fast compiled code. Even things that exercise the 
low level attributes of the machine, like monitors and terminal 
programs, are being written in high-level languages. None of the 
hacking that was required on the TRS-80 is required on MSDOS. In the 
"real" World. I am working with a set of 93 dBase programs that walk 
and talk. There has never been a really outstanding data base manager 
for the TRS-80. 

It would seem that the solution to the Northern Bytes problem can be 
resolved by the computer Itself, by concentrating on higher level 
languages. Not as high level as dBase, but definitely as high level as 
BASIC, Pascal and C. People are much more likely to tweak or find 
someone who can tweak a BASIC program than a machine language 
program. We will give special attention to programs written in as 
generic a style as possible. Your support with this project would be 
appreciated. 




FILE TRANSFER UTILITY 
A program by Ted Baker 

This program was written by Ted Baker of B.G.&T. Software, 
and first appeared in USR(80), the Journal of the Vancouver 
(British Columbia, Canada) TRS-80 Users Group. The program 
allows the transfer of files from NEWDOS/80 diskettes to 
TRSDOS 6.2 diskettes. The full capabilities of the program can 
be determined by reading the extensive remarks alongside the 
code Some of the code lines are overlength and wrap around to 
the following line, so be sure to check the hex byte field of the 
listing if you have any doubts as to proper character spacing. 

As this program is relatively long, you may wish to wait for 
it to appear on a TAS Public Domain Library disk, instead of 
keying it in yourself. We have received a few other Programs 
that were written by Ted and those will probably be on the PD 
Library disk as well. 



0121 

003C 

0019 

005D 

005E 

0022 

0002 

000A 

0016 

001A 

004E 

0051 

0041 

0062 

0063 

0266 

003A 

000E 

0001 

000? 

0040 

00SA 

005B 

003B 

0042 

000E 

0006 

0023 

0031 

0055 

0043 

0037 

0068 

000F 

2049 

024A 

0048 

0036 

3000 

0100 
3100 53 

57 53 
310F 31 
29 

3111 00 

3112 53 
59 53 
29 

3124 00 

3125 0A 

3126 43 
41 4E 
45 43 

313E 00 
313F 0A 
3140 44 
49 52 

3150 00 

3151 45 
52 52 

3156 2020 
31SA0D 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

001B0 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

002B0 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 



CKBRKC EQU 

CKQHv EQU 

CLOSE EQU 

CMNDR EQU 



DIVA EQU 

QIV16 EQU 

0001R EQU 

OSP EQU 

DSPLY EQU 

EXIT EQU 

ERROR EQU 

FSPEC EQU 

GTDCT EQU 
HEXDEC ' EQU 

HEXB EQU 

HEX16 EQU 

HIGH EQU 

IN1T EQU 

KBO EQU 

KEY EQU 

KEYIN EQU 

LOF EQU 

MUL8 EQU 

MUL14 EQU 



OPEN 
POSN 



EQU 
EQU 



00390 



00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 



00500 

00510 

54 45 4D 

00520 



PRINT EQU 
PRT EQU 
RAMDIR EQU 
ROSEC EQU 
RDSSC EQU 
READ EQU 
REMOV EQU 
SOUND EQU 
UDCTL EQU . 
vER EQU 
UEOF EQU 
WRITE EQU 
UR5SC EQU 
ORG 
BUFFER OEFS 
SYSRES DEFM 
20 2B 53 59 53 
SN DEFM 



106 i CHECK BREAK BIT ANO CLEAR !T 

33 i CHECK DRIVE 

60 '.CLOSE A FILE OR DEVICE 

25 i EXECUTE COMMAND 

93 iB-BIT DIVIDE 

94 (14 BIT BY 8 BIT DIVIDE 

34 iDO DIRECTORY DISPLAY/BUFFER 
2 i DISPLAY A CHARACTER 

10 i DISPLAY MESSAGE LINE 
22 ;EXIT TO TRSDOS 

26 ; ENTRY TO POST AN ERROR MESSAGE 

78 iASSIGN FILE OR OEVICE SPECIFICATION 
81 ;GET DRIVE CODE TABLE" 

97 ;C0NVERT BINARY TO DECIMAL ASCII 

98 CONVERT 1 BYTE TO HEX ASCII 

99 ; CONVERT 2 BYTES TO HEX ASCII 

100 ;GET OR ALTER HIGH* OR LOU* 
58 iOPEN OR INITIALIZE FILE 

fl ;SCAN KEYBOARD AND RETURN 

iSCAN »KI OEVICE. WAIT FOR CHARACTER 

(ACCEPT A LINE OF INPUT 

CALCULATE THE EOF LOGICAL RECORD NUMBER 

;8-BIT MULTIPLICATION 

;16-BIT BY 8-BIT MULTIPLICATION 

iOPEN EXISTING FILE OR OEVICE 

(POSITION FILE 

(PRINTS MESSAGE LINE 

ISENO CHARACTER TO PRINTER 

:GET DIRECTORY RECORD OR FREE SPACE 

IREAD SECTOR 

iREAO SYSTEM SECTOR 

(READ A RECORD 

(REMOVE FILE OR DEVICE 

;S0UNO GENERATION 

iVIDEO FUNCTIONS 

(WRITE ANO VERIFY A RECORD 

iURITE END OF FILE 

; WRITE A RECORD 

i WRITE A SYSTEM SECTOR 



1 
9 
64 
90 
91 
59 
66 
14 
6 

35 
49 
B5 
67 
57 
104 
15 
73 
74 
75 
54 
3000H 
256 
. 'SYSTEM 
52 45 53 
'11' 



315B 1C1F 
3150 43 
4F 50 
S4 4F 
43 4F 

3180 0A 

31BE 7E 
7E 7E 
7E7E 
7E 7E 

31BE 0A2A 

31C0 62 
79 20 

31CC 2A 

31CD 42 
2E 47 
2D 20 
20 32 

31F2 0A0A 

31F4 4E 
45 57 

3200 31 
20 3C 

320A 0A 

320B54 
52 53 

3217 30 
20 3C 

3226 0A 

3227 50 

52 45 
20 54 

3243 0A0A 

3245 50 
'52 45 
42 45 

325C 0F 

3250 0A0D 



(SYSRES=' 
3D 



00530 0EFB 0DH 

00540 SYSRS1 DEFM 'SYSTEM (SYSRES=12)' 

54 45 4D 20 2B 53 5? 53 52 45 53 30 31 32 

00550 DEFB 0DH 

00560 N00IR OEFB 0AH 

22570 DEFM 'CANNOT LOCATE DIRECTORY.' 

4E 4F S4 20 4C 4F 43 41 54 45 20 44 49 52 
54 4f 52 59 2E 

00580 OEFB 0OH 

00590 FNDIR DEFB 0AH 

00600 0EFM 'DIRECTORY FOUND.' 

45 43 54 4F 52 59 20 46 4F 55 4E 44 2E 

20612 OEFB 20H 

00620 ERR DEFM 'ERROR =' 
4F 52 22 3D 

02632 B2 DEFW 2020H (BUFFER TWO 

02642 DEFB 0DH 



00650 

02660 

59 22 4E 

22 54 52 

4D 50 41 

02670 

00660 

7E7E 7E 

7E7E 7E 

7E7E 7E 

00690 

02700 

54 65 64 

00710 

00720 

2E 26 54 

4D 61 79 

2E30 

02730 

00740 

44 4F 53 

22752 

53 4F 55 

22762 

02770 

44 4F 53 

22780 

44 45 53 

00790 



TITLE DEFW 1F1CH (CLEAR SCREEN 

0EFM 'COPY NEW00S FILE TO TRSDOS 6.2. X COMPATIABLE 
45 57 44 4F S3 20 46 49 4C 45 22 

53 44 4F S3 22 36 2E 32 2E S8 22 

54 4? 41 42 4C 45 22 44 4F 53 
DEFB 2AH 
DEFM ' 

7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 
.7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 
7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 

DEFW 0A0AH 

DEFM 'by Ted Baker' 
22 42 61 6B 65 72 

OEFB 0AH 

DEFM 'B.G.IT. Software 
2E 20 53 4F 66 74 77 61 72 45 20 
20 31 39 38 35 20 2D 20 56 65 72 



DOS' 



May 1985 - Ver 2.2' 



53 53 20 

4F 20 43 

00B12 



53 53 20 

47 49 4E 

00632 

22642 

02652 



325F 00 

3260 02 

3261 02 

3262 02 

3263 01 

3264 00 

3265 02 

3266 22 

3267 00 
326S02 
3269 01 
326A00 
324B 00 
326C 0A 
326D 44 

49 52 
52 41 

0225 

32B6 22 
20 20 

0005 

329A 00 

329B 1C1F 

3290 51 
75 65 
20 42 
54 52 

32C9 0A 

32CA 7E 
7E7E 
7E7E 
7E7E 

32F6 0A2D 

32F8 1C1F 

32FA 43 
6F 72 
69, 6C 
69 73 

331E 0A 

331F 7E 
7E7E 



02B70 
02882 
02692 
22922 
02912 
00922 
00932 
00940 
00950 
02960 
00970 
00980 
00992 
01000 
01012 
45 43 54 
43 4B 22 
01020 
21030 
22 20 20 
01040 
01050 
01062 
21072 
72 79 22 
65 66 6F 
53 44 4F 
21082 
01290 
7E7E7E 
7E7E7E 
7E7E 7E 
01100 
01110 
01120 
79 22 41 
65 73 20 
6B 
01130 
01140 
7E 7E 7E 



DEFW 0A2AH 

DEFM 'NEWD05 2.2 = ' 
20 32 2E 30 20 3A 
SOI DEFM '1 <S0URCE>' 
52 43 45 3E 

OEFB 0AH ' 

DEFM 'TRSDOS 6.2 •■• 
It 36 2E 32 22 3A 
DD1 DEFM '0 DESTINATION)' 
54 49 4E 41 54 49 4F 4E 3E 

OEFB 0AH 

DEFM 'PRESS <SPACE BAR) TO CHANGE 
3C 53 50 41 43 45 20 42 41 52 3E 
48 41 4E 47 45 2E 
ENTER DEFW 0A0AH 

DEFM 'PRESS <ENTER) TO BEGIN.' 
3C 45 4E 54 45 52 3E 20 54 4F 20 
2E 

DEFB 15 

DEFW 0D0AH 
(NEUD0S DIRECTORY ON TRACK 9 SEC 6 1 SIDE 
(NEWQ0S DIRECTORY ON TRACK 4 SEC 24 2 SIDES 



E0DR 

LOIRS 

LD1R 

MTRK 

SFLAG 

5EC 

TRK 

MSEC 

MNSEC 

DIRB 

SDRV 

0IRT 

CT 

UHES 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
OEFB 
OEFB 
OEFB 
DEFB 
DEFM 



01 






(END OF NEWD0S DIRECTORY IN RAM 
(LENGTH OF DIRECTORY IN SECTORS 
(LENGTH OF DIRECTORY IN GRANS 
(MAX TRACKS 
(ONE .SIDE NEUD05 



2AH 

'DIRECTORY IS AT TRACK 



4F S2 59 20 49 53 22 41 54 20 54 



SECTOR 



UMES1 OEFS 5 

DEFM 
53 45 43 54 4F 52 20 
WMES2 DEFS 5 

DEFB 0OH 
CBQM DEFU 1F1CH 

DEFM 'Query NEU0OS Fi le Before Copy to TRSDOS Dis 
4E 45 57 44 4F 53 20 46 69 6C 65 
72 65 20 43 6F 72 79 22 74 6F 20 
53 20 44 69 73 6B 

DEFB 0AH 

DEFM ' " 

7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 
7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 
7E 7E 7E 7E 7E 7E 

DEFW 2D0AH 
CBAM DEFW 1F1CH 

DEFM 'Copy Al I NEUDOS Fi les to TRSDOS Disk' 
6C 4C 20 4E 45 57 44 4F 53 22 44 
74 4F 22 54 52 53 44 4F 53 22 44 



DEFB 
DEFM 



0AH 



7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 



7E 7E 7E 
7E7E7E 

3343 0A0O 

3345 20 

43 6F 71 

335103 
0002 
022B 

335F 3A4B32 
3342 FE00 
3344 2B05 
3346 21*B32 
3349 1623 
334B21FB32 
334E 3E2A 

3372 EF 
3371 3E0F 

3373 0407 
337S 2E03 

3377 EF 

3378 21004 
337B 24 
337C 24 
337D 7E 
337E CB77 
3380 2006 
3362 CB7F 
3364 2204 
3384 CB4" 
3388 2021 
338A 012! 
3380 09 
338E 3A5 

3391 94 

3392 FE! 
3394 CAF 
3397 1BI 
3399 E5 
339A 21 
3390 0? 

^fc 339EE5 

339F tt 

33A1 7! 

33A2 41 

33A3 3I 

33A5 E : 

33A4 2 

33A7 1 

33A9« 

33AB ; 

33AD I 

33AF I 

33B2 

33B2 

33B5 

33B7 

33B9 

33BB 

33BE 

33BF 

33C2 

33C4 

33C4 

33CE 

33CI 

33CI 

33C 

33C 

330 

33C 

33C 

331 

331 

331 

33 

33 

33 

3; 

3: 
3: 

3: 



7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 

7E 7E 7E 
3343 'MH 
3345 20 

43 4F 70 ' 
3351 03 
0002 



01150 DEFU 0D0AH 
01160 CQH DEFM ' Copy Fit 
79 20 44 4? 6C 45 3F 20 







335F 3A4B32 
3342 FE00 
3344 2605 
3344 219B32 
334? 1B03 
334B 21FB32 
336E 3E0A 

3370 EF 

3371 3E0F 
3373 0407 
3375 0E03 

3377 EF 

3378 210060 
337B 24 
337C 24 
337D 7E 
337E CB77 
3360 2006 
3382 CB7F 
3364 2004 
3386 CB67 
3368 200F 
338A 012000 
33BD 09 
33BE 3A5F32 
3371 74 
3392 FE00 
3394 CAF635 
3397 18E4 
3399 E5 
339A 010500 
339D 09 
339E E5 
339F 060B 
33A1 7E 
33AZ 4F 
33A3 3E02 
33A5 EF 
33A6 23 
33A7 10F8 
33A9 0604 
33AB 3E02 
33AD 0E20 
33AF EF 
33B0 10F9 
33B2 3A6B32 
33B5 FE00 
33B7 2616 
33B? 3E0A 
33BB 214533 
33BE EF 
33BF C04234 
33C2 FE59 
33C4 2609 
33C6 FE79 
33C6 2605 
33CA El 
33CB El 
33CC C31034 
33CF El 
3300 115433 
33D3 010B00 
3306 EOB0 
3308 215433 
330B U6A3A 
33DE 0606 
33E0 7E 
33E1 FE20 
33E3 2602 
33E5 12 
33E6 13 
33E7 23 
33E6 10F6 



01170 

01180 CBAHL 

01190 PFILEN 

01200 CBA 

01210 

01220 

01230 

01240 

01250 CBAA 

01260 CBAAA 

01270 

01280 

01290 

01300 

01310 

01320 

01330 

01340 

01350 CB1A 

01360 

01370 

01380 

01390 

01400 

01410 

01420 CB1B 

01430 

01440 

01450 

01460 

01470 

01480 

01490 FOKFC 

01500 

01510 

01520 

01530 

01540 PFCAF 

01550 

01560 

01570 

01580 

01590 

01600 

01410 CAFLP1 

01620 

01630 

01640 

01650 

01660 

01670 

01480 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 CAFF 

01800 

01810 

01820 

01B30 

01640 

01850 

01660 PL1CAF 

01870 

01680 

01690 

01900 

01910 CBFA1 

01920 



DEFB 

DEFS 

DEFS 

LO 

CP 

JR 

LD 

JR 

LD 

LD 

RST 

LD 

LD 

LD 

RST 

LO 

INC 

INC 

LD 

BIT 

JR 

BIT 

JR 

BIT 

JR 

LO 

ADD 

LO 

SUB 

CP 

JP 

JR 

PUSH 

LO 

ADO 

PUSH 

LD 

LD 

LD 

LD 

RST 

INC 

DJNZ 

LD 

LD 

LD 

RST 

DJNZ 

LD 

CP 

JR 

LO 

LO 

RST Z8H 

CALL 

CP 

JR 

CP 

JR 

POP 

POP 

JP 

POP 

LD 

LD 

LDIR 

LD 

LD 

LD 

LD 

CP 

JR 

LD 

INC 

INC 

DJN2 



3 
2 
11 
A.(CT) 



Z.CBAA 

HL.CBQM 

CBAAA 

HL.CBAH 

A.OSPLY 

26H 

A.VOCTL 

B.7 

C.3 

2BH 

HL.DIRBUF 

H 

H 

A.(HL) 

4, A 

NZ.CB1B 

7>A 

NZ.CB1B 

4.A 

NZ.FOKK 

BC32 

HL.BC 

A,(EOOR) 

H 



Z.BQDIR 

CB1A 

HL 

BC.5 

HL.BC 

HL 

B.ll 

A.(HL) 

C.A 

A, DSP 

2BH 

HL 

PFCAF 

B>4 

A.OSP 

C.20H 

26H 

CAFLP1 

A>(CT) 



Z.CAFF 

AiDSPLY 

HL.COM 

GETKEY 

•V 

Z.CAFF 

V 

Z.CAFF 

HL 

HL 

NFHFQ 

HL 

OE. PFILEN 

BC.il 

HL.PF1LEN 
DE.FCB2 
B.8 
A.(HL) 

Z.CBFA1 

(DE).A 

DE 

HL 

PL1CAF 



i SCROLL PROTECT 
13 LINES 

iCOPY ALL FILES - DIRECTORY BUFFER 



iCHECK FILE STATUS.SYS.EXT.KILLED.ETC 



(POINTS TO FILE NAME 



iMOVE FILENAME TO FILE NAME QUESTION 

;FILE CONTROL BUFFER 

iFIRST 8 CHARACTERS OF FILE NAME 



33EA 3E2F 


01930 


LD 


A,'/' 


33EC 12 


01940 


LO 


(DE).A 


33ED 13 


01950 


INC 


DE 


33EE 0603 


01960 


LD 


B.3 iFIRST 8 CHARACTERS OF FILE Nl 


33F0 7E 


01970 CBFA3 


LD 


A.(HL) 


33F1 FE20 


01980 


CP 


J ) 


33F3 2B02 


01990 


JR 


Z.CBFA2 


33F5 12 


02000 


LD 


(DE).A 


33F6 13 


02010 


INC 


DE 


33F7 23 


02020 CBFA2 


INC 


HL 


33F6 10F6 


02030 


DJNZ 


CBFA3 


33FA 3A1632 


02040 


LD 


A.(DDl-l) iAOO DESTINATION DRIVE NUMBER 


33FD 12 


02050 


LD 


(DE).A (TO FILE NAME 


33FE 13 


02060 


INC 


DE 


33FF 3A1732 


02070 


LD 


A.(DOl) 


3402 12 


02080 


LD 


(OE).A 


3403 13 


02090 


INC 


DE 


3404 3E0O 


02100 


LD 


A.0OH 


3406 12 


02110 


LD 


(DE).A 


3407 El 


02120 


POP 


HL iNECCESSARY FOR BSFCH 


3406 E5 


02130 


PUSH 


HL (LEAVE IN 


3409 CDB742 


02140 


CALL 


BSFCH 


340C El 


02150 


POP 


HL 


3400 C24C39 


02160 


JP 


NZ.EXT 


3410 3E02 


02170 NFHFQ 


LD 


A. DSP 


3412 0E0D 


02180 


LD 


C.0OH 


3414 EF 


02190 


RST 


28H 


3415 3E4A 


02200 


LD 


A.CKBRKC 


3417 EF 


02210 


RST 


28H 


3418 C2F835 


02220 


JP 


NZ.BflDIR 


341B C38A33 


02230 


JP 


CB1B 


341E 2A6A32 


02240 UHERE 


LD 


HL.(DIRT) 


3421 2600 


02250 


LO 


H.0 


3423 118332 


02240 


LD 


DE.UMES1 


3426 3E61 


02270 


LO 


A.HEXDEC 


3428 EF 


02260 


RST 


26H 


3429 2A6732 


02290 


LD 


HL,(MN5EC) 


342C 2600 


02300 


LD 


H.0 


342E 2B 


02310 


DEC 


HL 


342F 119532 


02320 


LD 


DE.UMES2 


3432 3E61 


02330 


LD 


A.HEXDEC 


3434 EF 


02340 


RST 


28H 


3435 216C32 


02350 


LD 


HL.UMES 


3438 3E0A 


02360 


LO 


A.OSPLY 


343A EF 


02370 ■ 


RST 


28H 


343B C30A36 


02380 


JP 


GHT1 


343E 3E68 


02390 BEEP 


LD 


A.SOUND 


3440 EF 


02400 


RST 


Z6H (BEEP 


3441 C9 


02410 


RET 




3442 3E01 


02420 GETKEY 


LD 


A.KEY 


3444 EF 


02430 


RST 


28H (GET CHARACTER IN A 


3445 CS 


02440 


PUSH 


BC 


3446 4F 


02450 


LD 


C.A 


3447 3E02 


02460 


LO 


A.OSP 


3449 EF 


02470 


RST 


28H 


344A 79 


02480 


LO 


A,C 


344B CI 


02490 


POP 


BC 


344C C? 


02500 


RET 




3440 0A 


02510 C0NF2 


OEFB 


0AH 


344E 43 


02520 


DEFM 


'CONFIGURATION' 


4F 4E 44 49 47 55 52 41 54 49 4F 4E 


34SB 0A0A 


02530 


DEFU 


0A0AH 


345D 4E 


02540 


OEFM 


'NEUDOS2.0 ■' 


45 57 44 4F 53 20 32 2E 30 20 3A 


3469 03 


02550 


DEFB 


03H 


346A 0A 


02560 C0NF1 


DEFB 


0AH 


346B 54 


02570 


OEFM 


'TRSDOS 6.2 :' 


52 53 44 4F 53 20 34 2E 32 20 3A 


3477 03 


02580 


OEFB 


03H 


3478 0400 


02590 CONFGR 


LD 


B.0 


347A CD3E34 


02600 


CALL 


BEEP 


3470 214034 


02610 


LD 


HL.C0NF2 


3480 3E0A 


02620 


LD 


A.OSPLY 


3482 EF 


02630 


RST 


28H 


3483 CD4234 


02640 


CALL 


GETKEY 


3486 320032 


02650 


LD 


(SOD. A 


3489 3Z9E34 


02660 


LD 


(CONCP+D.A 


348C DE30 


02670 


SBC 


A.30H 


348E 324932 


02680 


LD 


(SDRV).A 


3491 216A34 


02690 


LO 


HL.C0NF1 


3494 3E0A 


02700 


LD 


A.OSPLY 



3494 EF 


02710 


RST 


28H 




354B7E 


03470 


LD 


Ai(HL) 




3477 CD4234 


02720 


CALL 


GETKEY 




354C 324132 


03480 


LD 


(LDIR).A 




349A 32173Z 


02730 


LO 


(DDl)iA 




354F4F 


03490 


LD 


C.A 




349D FE00 


02740 CONCP 


CP 







3550 1E05 


03500 


LD 


E.5 


:5 SECTORS PER GRAN-NEUDOS 


349F 2060 


02750 


JR 


NZ.NOLOAO 




3552 3E5A 


03510 


LD 


A.MULB 


^ 


34A1 0&03 


02740 


LD 


B.3 




3554 EF 


03520 


RST 


28H 


' 


34A3 CD3E34 


02770 


CALL 


BEEP 




3555 324032 


03530 


LO 


(LOIRS). A 




34A4 3E0A 


02780 


LD 


A.DSPLY 




3558 010400 


03540 


LD 


BC.4 




34A8 21AE34 


02790 


LD 


HL.CONER 




355B 210030 


03550 


LD 


HL.BUFFER 




34AB EF 


02800 


RST 


2BH 




355E09 


03540 


ADD 


HL.BC 




34AC 18CA 


02810 


JR 


CONFGR 




35SF7E 


03570 


LD 


A.(HL) 




34AE 0A0A 


02820 CONER 


DEFH 


0A0AH 




3540 324432 


03580 


LD 


(MSEC).A 




34B0 45 


02830 


OEFN 


'ERROR. ' 




3543 329243 


03590 


LO 


(RSM+D.A 


iSECTORS PER TRACK 


52 52 4F 52 2C 28 








3544 32E335 


03400 


LD 


(EODF+D.A 




3487 10 


02840 


DEFB 


14 


iREVERSE VIDEO 


3569 325145 


03410 


LD 


(EODFUtl).A 




34B8 53 


02850 


DEFH 


'SOURCE' 




354C 23 


03420 


INC 


HL 




4F 55 52 43 45 








3540 0B 


03430 


DEC 


BC 




34BE 11 


02840 


DEFB 


17 


iREVERSE VIDEO OFF 


354E7E 


03440 


LD 


Ai(HL) 


iGPL 


34BF 20 


02870 


DEFM 


' CANNOT EQUAL 


1 


354F 327B35 


03450 


LD 


(PGPLH+ll.A 




43 41 4E 4E 4F 54 20 45 51 55 41 4C 20 




3572 09 


03440 


ADO 


HL.BC 


;HL POINTS TO DDSL 


34C0 10 


02860 


DEFB 


U 




3573 4E 


03470 


LD 


C(HL) 


;C=DOSL 


34CE 44 


02890 


DEFM 


'DESTINATION' 




3574 210500 


03480 


LD 


HL.S 


;5 SECTORS PER GRAN 


45 53 54 49 4E 41 54 4? 4F 4E 






3577 3E5B 


03490 


LD 


A.MUL14 




34D9 11 


02900 


DEFB 


17 




3579 EF 


03700 


RST 


28H 


iHL.A = DIRECTORY START IN SECTORS 


340A2E 


02910 


DEFH 


j j 




357A 0E00 


03710 PGPLH 


LD 


C.0 


iGPL 


2E 2E 










357C 45 


03720 


LD 


H.L 




34DD0D 


02920 


DEFB 


0DH 




357D 4F 


03730 


LD 


L.A 




34DE 210030 


02930 START 


LD 


HL.BUFFER 




357E 3E5B 


03740 


LO 


A.MUL14 




34E1 24 


02940 


INC 


H 




3560 EF 


03750 


RST 


28H 


iS»DDSL«GPL»DIRECTORY SECTOR 


34E2 7C 


02950 


LD 


AiH 


iEOB 


3581 45 


03740 


LO 


H.L 




34E3 323B38 


02940 


LD 


(EOBM).A 




3582 4F 


03770 


LD 


L.A 




34E4 324F39 


02970 


LD 


(E0B2+D.A 




3583 3A4432 


03780 


LD 


A. (MSEC! 




34E9 3E44 


02980 


LO 


A.H1GH 


iGET HIGH MEMORY 


3584 4F 


03790 


LD 


C.A 


iSECTORS PER TRACK 


34EB 210000 


02990 


LD 


HL.0 




3587 3ESE 


03800 


LD 


A.0IV14 




34EE 0400 


03000 


LD 


B>0 




3589 EF 


03810 


RST 


2BH 


;HL=TRACK.A=SECTOR OF DIRECTORY 


34F0 EF 


03010 


RST 


28H 




3S8A 324832 


03620 


LD 


(DIRB).A 


iSECTOR 


34F1 7C 


03020 


LD 


AiH 


ilF MODULES RESIDE MEMORY LESS <F3 


3580 324432 


03630 


LD 


(SEC). A 


iOF DIRECTORY START 


34F2 FEE? 


03030 


CP 


0E9H 




3590 3C 


03640 


INC 


A 




34F4 2616 


03040 


JR 


Z.NOLOAO 




3591 324732 


03650 


LD 


(MNSEO.A 


iHIT TABLE SECTOR 


34F4 0404 


03050 


LD 


B>4 


i/SYS NUMBER 


3594 70 


03840 


LD 


A.L 


i TRACK START 


34F8 78 


03040 LPA 


LD 


A>B 




3595 324532 


03870 


LD 


(TRK).A 




34F9 C430 


03070 


ADO 


A.30H 


iMAKE ASCII NUMBER 


3598 324A32 


03880 


LD 


(DIRT), A 




34FB 320F31 


03080 


LD 


(SN).A 


i COMMAND SYNTAX 


359B 3A4432 


03690 


LD 


A. (MSEC) 




34FE 210031 


03090 


LD 


HL.SYSRES 


i 'SYSTEM (SYSRE5='A')' 


359E 5F 


03900 


LO 


E.A 




3501 3E19 


03100 


LD 


A.CNNDR 




359F0E12 


03910 


LD 


C.18 




3503 C5 


03110 


PUSH 


BC 




35A1 3E50 


03920 


LD~ 


A. DIV8 




3504 EF 


03120 


RST 


28H 




35A3EF 


03930 


RST 


2BH 


;MSEC/1B=S1DES 1BSEC PER SIDE 


3505 CI 


03130 


POP 


BC 




35A4 324332 


03940 


LD 


(SFLAG).A 




3504 10F0 


03140 


DJNZ 


LPA 


iLOOP TILL 3 /SYS IN MEMORY 


35A7 3A4932 


03950 


LD 


A.(SDRV) 


iSOURCE DRIVE 


3508 211231 


03150 


LD 


HL.SYSRS1 




35AA 4F 


03940 


LD 


C.A 




3S0B 3E19 


03140 


LD 


A>CHNDR 




3SAB 3ES1 


03970 


LD 


A.GTDCT 




3500 EF 


03170 


RST 


26H 




35ADEF 


03980 


RST 


28H 


iGET DRIVE 1 TABLE ADDRESS 


350E 215B31 


03180 NOLOAI 


I LO 


HL.TITLE 




35AE FD4E04 


03990 


LD 


C,(IY+4) 




3511 3E0A 


03190 


LD 


A.DSPLY 




35B1 3A6332 


04000 


LD 


A.(SFLAG) 




3513 EF 


03200 


RST 


28H 


DISPLAY TITLE 


35B4 FE01 


04010 


CP 


1 




3514 3E07 


03210 


LD 


A.7 




35B4 2804 


04020 


JR 


Z.NOS 




3514 E407 


03220 Gl 


AND 


7 




35B8 CBE9 


04030 


SET 


5.C 


;5ET FOR DOUBLE SIDED OPERATION 


3518 47 


03230 


LD 


B.A 




35BA 1802 


04040 


JR 


SBCH 




351? C03E34 


03240 


CALL 


BEEP 




35BC CBA9 


04050 NDS 


RES 


5.C 


iSET FOR SINGLE SIDED OPERATION 


351C 3E01 


03250 


LD 


A.KEY 


iGET A KEY 


35BE FD7104 


04040 SBCH 


LD 


(IYH).C 




351E EF 


03240 


RST 


28H 




35C1 3A4232 


04070 


LD 


A.(MTRK) 


iNUMBER OF TRACKS 


351F FE20 


03270 


CP 


J J 




35C4 FO7704 


04080 


LO 


(IY+41.A 




3521 CA7834 


03260 


JP 


Z.CONFGR 




35C7 C0BC38 


04090 


CALL 


CMPARE iSEE IF 40 ON 80 


3524 FE0D 


03290 


CP 


13 


1ENTER 


35CA 3A4032 


04100 


LD 


A, (LOIRS) 




3524 2807 


03300 


JR 


Z.SEARCH 




35CD 47 


04110 


LD 


B.A 




3528 FEB0 


03310 


CP 


80H 




35CE 3A6932 


04120 


LO 


A.(SDRV) 




352A CA5434 


03320 


JP 


Z.ENDQ 




3501 4F 


04130 


LD 


C.A 




3520 18E7 


03330 


JR 


Gl 




35D2 3A4832 


04140 


LD 


A.(DIRB) 




352F 1400 


03340 SEARCH LD 


0.0 


iNEUDOS INFORMATION SECTOR 


35D5 5F 


04150 


LD 


E.A 




3531 1E02 


03350 


LD 


E.2 




3504 3A4A32 


04140 


LO 


■A.(OIRT) 




3533 3A4932 


03340 


LD 


A.(SDRV) 




3509 57 


04170 


LD 


D.A 




3534 4F 


03370 


LO 


C.A 


i DRIVE 


35DA 210040 


04180 


LD 


HL.OIRBUF 




3537 210030 


03380 


LD 


HL.BUFFER 




35DD 3E55 


04190 NSOFD 


LO 


A.RDSSC 




3S3A 3E31 


03390 


LD 


A.RDSEC 


iREAD SECTOR 


350FEF 


04200 


RST 


28H 




353C EF 


03400 


RST 


28H 




35E0 7B 


04210 


LD 


A.E 




3530 C24C39 


03410 


JP 


NZ.EXT 




35E1 3C 


04220 


INC 


A 


g 


3540 210330 


03420 


LO 


HL.BUFFERt3 




35E2 FE00 


04230 EODF 


CP 







3543 7E 


03430 


LD 


A.(HL) 


iNUMBER OF TRACKS 


35E4 2003 


04240 


JR 


NZ.IA 




3544 3D 


03440 


DEC 


A 


iLESS ONE 


35E4 3E00 


04250 


LD 


A.0 




3545 324232 


03450 


LD 


(MTRK).A 




35EB 14 


04240 


INC 


D 


iINC TRACK *»»»»»»»***»* 


3548 210930 


03440 


LO 


HL.BUFFER+9 




35E? SF 


04270 1A 


LD 


E.A 





T 



35EA 24 


04280 


INC 


H 


2E 47 2E 26 54 2E 20 53 6F 66 74 77 61 72 65 20 


35EB 10F0 


04290 


DJN2 


NSOFD 


20 20 40 61 79 20 31 39 38 35 




35E0 7C 


04300 


LD 


A.H 


3718 0A0A 


05000 


DEFU 


0A0AH 


35EE 3Z5F3Z ' 


04310 


LD 


(EODR).A 


371A 3C 


05010 


DEFM 


'<1> Copy One File' 


35F1 24 


04320 


INC 


H 


31 3E 20 20 43 6F 70 79 20 4F 4E 65 20 46 69 6C 


35FZ 227D45 


04330 


LD 


(STDIR).HL 


65 








35F5 CD0F44 


04340 


CALL 


SORT 


372C 0A 


05020 


DEFB 


0AH 


35FB 3E0F 


04350 BQDIR 


LD 


A.VDCTL 


3720 3C 


05030 


DEFM 


'<2> Query Each File' 


35FA 0607 


04340 


LD 


Bi7 1 SCROLL PROTECT 


32 3E 20 20 51 75 45 72 79 20 45 41 63 66 20 46 


35FC 0E00 


04370 


LD 


C>0 it LINES 


6? 4C 4! 








35FE EF 


04380 


RST 


28H 


3741 0A 


05040 


DEFB 


0AH 


35FF 218B36 


04390 


LD 


HL.QDIR1 


3742 3C 


05050 


DEFM 


'<3> Copy All Files' 


3602 3E0A 


04400 


LD 


A.DSPLY 


33 3E 20 20 43 6F 70 79 20 41 6C 6C 20 46 69 6C 


3614 EF 


04410 


RST 


2BH 


65 73 








MS um 


04420 


LD 


8>0 


3755 0A 


05060 


DEFB 


0AH 


3407 CD3E34 


04430 


CALL 


BEEP 


3756 3C 


05070 


DEFM 


'<5> Directory of Drive' 


340A 3E01 


04440 GHT1 


LD 


A.KEY 


35 3E 20 20 44 69 72 65 63 74 6F 72 79 20 6F 66 


340C EF 


04450 


RST 


2BH 


20 44 72 69 76 65 






3400 FE31 


04440 


CP 


'1' 


376D 0A 


05060 


DEFB 


0AH 


340F CABE37 


04470 


JP 


Z.RDIR 


374E 3C 


05090 


DEFM 


'<6> Chaw KUDOS Disk' 


3412 FE32 


04480 


CP 


•V 


34 3E 20 20 43 48 41 4E 47 45 20 4E 45 57 44 4F 


3414 CA4C34 


04490 


JP 


ZiNCBF ;C0PY6YFILE 


53 20 44 4? 73 4B 






3417 FE33 


04500 


CP 


'3' 


37B5 0A 


05100 


DEFB 


0AH 


341? CA4434 


04510 


JP 


ZiAFC 


3764 3C 


0SU0 


DEFM 


'<F> NEUDOS Free Space Map' 


341C FE35 


04520 


CP 


'5' 


44 3E 20 20 4E 45 57 44 4F 53 20 44 72 45 45 20 


341E CACA3B 


04530 


JP 


Z,DIRECT 


53 70 61 63 65 20 4D 61 70 




3421 FE34 


04540 


CP 


'4' 


37A0 0A 


05120 


DEFB 


0AH 


3423 CA0E35 


04550 


JP 


Z.NOLOAD 


37A1 3C 


05130 


DEFM 


'<0> Return to TRSOOS 6.2' 


3424 FE51 


04560 


CP 


'0' 


51 3E 20 20 52 45 74 75 72 4E 20 74 4F 20 54 S2 


3428 282A 


04570 


JR 


Z.ENDQ 


53 44 4F 53 20 34 2E 32 




342A FE71 


04580 


CP 


V 


37BA0A 


05140 


DEFB 


0AH 


342C 2826 


04590 


JR 


Z.ENDQ 


37BB 20 


05150 


DEFM 


' ' 


342E FE44 


04600 


CP 


'F' 


37BC 0E 


05160 


DEFB 


14 


3430 CA2C3D 


04610 


JP 


Z.FREE 


37BD 03 


05170 


DEFB 


3 


3433 FE44 


04620 


CP 


T 


37BE 3A4A32 


05160 RDIR 


LO 


At (DIRT) 


3435 CA2C3D 


04630 


JP 


ZiFREE 


37C1 324532 


05190 


LD 


(TRK).A 


3438 FE3F 


04440 


CP 


'?' 


37C4 3A4B32 


05200 


LD 


Ai(DIRB) 


343A CA1E36 


04450 


JP 


Z.UHERE 


37C7 324432 


05210 


LD 


(SEC), A 


343D FE17 


04640 


CP 


23 iCTRL U 


37CA 3A4532 


05220 


LD 


A.(TRK) 


343F CA3B45 


04470 


JP 


Z.WRITED 


37CD 00 


05230 DBL1 


NOP 




3442 18C4 


04480 


JR 


GHTS 


37CE 57 


05240 


LD 


DiA 


3644 3E00 


04490 AFC 


LD 


A>0 


37CF 3A4432 


052S0 


LD 


A, (SEC) 


3444 324B32 


04700 


LD 


(CT).A 


3702 5F 


0S260 


LD 


E.A 


3449 C35F33 


04710 


JP 


CBA 


37D3 3A4932 


05270 


LO 


A.(SDRV) 


344C 3E01 


04720 NCBF 


LD 


Ail 


37D6 4F 


052B0 


LD 


C.A .DRIVE NUMBER 


344E 324B32 


04730 


LD 


(CT).A 


37D7 210030 


05290 


LD 


HL.BUFFER 


34S1 C3SF33 


04740 


JP 


CBA 


37DA CD7042 


05300 


CALL 


DODISK 


3454 3E0A 


04750 ENDQ 


LD 


A.DSPLY 


37D0 C26C39 


05310 


JP 


NZ.EXT iEXIT ON ERROR 


3454 214D34 


04760 


LD 


HLiENDOl 


37E0 210030 


05320 


LD 


HL.BUFFER+0D0H IDISK NAME 


345? EF 


04770 


RST 


Z8H 


37E3 11103A 


05330 


LD 


OE.NAME 


345A 0400 


04780 


LD 


B.0 


37E6 010800 


05340 


LD 


BC.B 


345C CD3E34 


04790 


CALL 


BEEP 


37E9 EOB0 


05350 


LDIR 




345F 3E01 


04600 


LD 


A>KEY 


37EB 11233A 


05360 


LD ' 


DE.DATE 


3441 EF 


04610 


RST 


26H 


37EE 010800 


05370 


LD 


BC.S 


3442. 0E00 


04820 


LO 


C.0 


37F1 EDB0 


05380 


LDIR 




3444 3E21 


04830 


LD 


A.CKDRV iCHECK ORIVE 


37F3 210B3A 


05390 


LD 


ML.DIR iDISPLAY DIRECTORY 


3466 EF 


04640 


RST 


28H 


37F6 3E0A 


05400 


LD 


A.DSPLY 


3667 C26C3? 


04850 


JP 


NZ.EXT 


37FB EF 


05410 


RST 


2BH 


364A 3E14 


04660 


LD 


AiEXIT 


37F9 3A6632 


05420 


LD 


A. (MSEC) 


344C EF 


04870 


RST 


28H i RETURN TO DOS 


37FC 320538 


05430 


LD 


(MSECl+ll.A 


3440 0A0A 


04880 EN001 


DEFU 


0A0AH 


37FF 3A6432 


05440 


LD 


A. (SEC) 


344F 0E 


04690 


DEFB 


14 


3602 3C 


05450 


INC 


A 


3470 50 


04900 


DEFM 


'PUT SYSTEM DISK IN DRIVE 0' 


3803 3C 


05460 N5EC 


INC 


A 


55 54 20 53 5? 53 54 45 40 20 44 4? 53 4B 20 4? 


3804 FE00 


05470 MSEC1 


CP 





4E 20 44 52 4? 54 45 20 30 




3806 C21236 


05480 


JP 


NZ.0K1 


348A03 


04910 


DEFB 


3 


3809 3A6532 


05490 


LD 


A.(TRK) 


3488 1C1F 


04920 QDIRl 


DEFU 


1F1CH 


380C3C 


05500 


INC 


A 


3480 43 


04930 


DEFM 


'COPY NEUDOS FILE TO TRSOOS 6.2. X COMPATIBLE DOS' 


380D 326532 


05510 


LD 


(TRK)iA 


4F 50 5? 20 4E 45 57 44 4F S3 20 44 4? 4C 45 20 


3810 3E00 


05520 


LD 


A.0 


54 4F 20 54 52 53 44 4F 53 20 34 2E 32 2E 58 20 


3612 326432 


05530 OKI 


LD 


(SEC). A 


43 4F 40 50 41 54 4? 41 42 4C 45 20 44 4F 53 


3815 5F 


05540 


LO 


E.A 


36B0 0A 


04940 


DEFB 


0AH 


3816 3A6932 


05550 


LD 


A.(SDRV) 

C.A iORIVE NUMBER 


34BE 7E 


04950 


DEFU 




3819 4F 


05560 


LD 


7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 


381A 3A6532 


05570 


LO 


A.(TRK) 


7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 


381D 00 


05580 0BL2 


NOP 




7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 


381E 57 


05590 


LD 


D.A 


36EE 0A0A 


04960 


DEFU 


0A0AH 


361F 210030 


05600 


LO 


rL.BUFFER 


34F0 42 


04970 


DEFM 


'by Ted Baker' 


3822 CD7042 


05610 


CALL 


DODISK 


79 20 54 65 44 20 42 61 6B 65 72 


3825 C25E38 


05620 


JP 


NZ.DIRDNE iEXIT ON ERROR 


34FC 0A 


04980 


DEFB 


0AH 


3628 7E 


05630 LKRC 


LD 


A.(HL) 


34F0 42 


04990 


DEFM 


'B.G.IT. Snftuare - May 1985' 


3829 CB77 


05640 


BIT 


6. A 



3BZB im 

3820 CB7F 
38ZF2004 
3631 CB67 
3633 Z00F 
3635 012000 
3638 09 
3S3? 7C 
3B3AFEEF 
383C 20EA 
383E 3A6432 
3641 C30338 
3644 0105M 

3847 09 

3848 010B00 
384B U2D3A 
384E EDB0 

3850 E5 

3851 212D3A 
3854 3E0A 
3854 EF 
3857 El 
3B5B 011000 
385B C3383B 
3B5E 213E3A 
3861 3E0A 

3863 EF 

3864 0600 
3866 CD3E34 
366'? 3E09 
366B 21EA39 
386E060F 
3670 0E00 
3872 EF 
3B73 7B 
3674 FE00 
3876 CA6C39 

3879 48 
387A 0600 
367C09 
3870 3A1632 

3880 77 
38B1 23 
3882 3A1732 
3BB5 77 

3686 23 

3687 3E0D 
3887 77 
368A 3E4E 
36BC 21EA39 
3BBF U6A3A 
38"?Z EF 
3893 2B1D 
38% 0607 
3897 CD3E34 
389A 21A238 
3B9D 3E0A 
389FEF 
38A0 1BBC 
38A2 46 

69 6C 65 
38B1 0D 
3BBZ 21EA39 
3BB5 116A3A 
38B8 0608 
3BBA 1A 
3BBB FE03 
3BBD 260B 
3BBF FE2F 
3BC1 2807 
38C3 77 
38C4 23 
3BC5 13 
3BC6 10FZ 
38C8 1B12 
36CA 3620 
38CC 23 
3BC0 10FB 
38CF FE03 
3801 2009 
3803 0603 



05650 
05660 
05670 
05680 

05690 

05700 NXT 

05710 NXT1 

05720 

05730 E0B1 

05740 

05750 

05760 

05770 PRNT 

05780 

05790 

05800 

05810 

05620 

05830 

05B40 

05B50 

05860 

05870 

05860 

05890 DIRDNE 

05900 

05910 

05920 

05930 

05940 

05950 

05960 

05970 

05980 

05990 

06000 

06010 

06020 

06030 

06040 

06050 

06060 

06070 

06080 

06090 

06100 

06110 

06120 

06130 

06140 

06150 

06160 

06170 

06180 

06190 

06200 

06210 

06220 

06230 

06240 FERR 

6E 61 60 65 

06250 

06260 CNT1 

06270 

06260 

06290 LK1 

06300 

06310 

06320 

06330 

06340 

06350 

06360 

06370 

06360 

06390 SF 

06400 

06410 
06420 
06430 
06440 



JR NZ.NXT 

BIT 7.A 

JR NZ.NXT 

BIT 4.A 

JR NZ.PRNT 

LD BC32 

ADO HLiBC 

LO A.H 

CP 0EFH 

JR NZ.LKRC 

LD A. (SEC) 

JP NSEC 

LD BC.5 

ADO HL.BC 

LO BC.ll 

LO DE.83 
LOIR 

PUSH HL 

LD HL.B3 

LO A.OSPLY 

RST Z8H 

POP HL 

LD BC16 

JP NXT1 

LD HL.FIL 

LD A.DSPLY 

RST ZBH 

LO B>0 

CALL BEEP 

LD A.KEYIN 

LD HL.FN 

LD B.15 

LD C>0 

RST 28H 

LD AiB 

CP 

JP Z»EXT 

LO C.B 

LD B>0 

ADD HL.aC 

LD A.(DDl-l) 

LO (HL).A 

INC HL 

LD A.(DOl) 

LD (HL).A 

INC . HL 

LD A.0DH 

LO (HL).A 

LD AiFBPEC 

LO HL.FN 

LD DEiFCB2 

RST 28H 

JR Z.CNTf 

LD B.7 

CALL BEEP 

LO HL.FERR 

LD A.DSPLY 

RST 28H 

JR DIRDNE 

OEFM 'FilenaneEr 
20 45 72 72 6F 72 2E 

DEFB 0DH 

LD HL.FN 

LD DE.FCB2 

LD B.8 

LD A.(OE) 

CP 3 

JR Z.SF 

CP ■'/' 

JR Z.SF 

LD (HL).A 

INC HL 

INC OE 

DJNZ LK1 

JR NEXTZ 

LD (HL1.32 

INC HL 

OJNZ SF 

CP 3 

JR NZ.NEXTZ 

LD B.3 



{NEXT RECORD 
iEND OF SECTOR 

{START OF FILE NAME 

;COPY FILE NAME TO BUFFER 
{DISPLAY FILE NAME 



iNEXT RECORO 

iASCII FOR FILE NAME 



iTONE 

iGET FILNAME 
iBUFFER FOR FILENAME 
iMAX LENGTH FOR FILENAME 



{NOTHING ENTERED ERROR 



iPUT FILESPEC INTO MFCB1 
iBUFFER CONTAINING FILENAME 
;MY FCB 



;TONE 
■FILENAME ERROR 



{CORRECTED FILE NAME FROM INPUT 
{SEARCH BUFFER FOR DISK SEARCH 



{CHANGE FILE/CMO 
iTO FILE CMD 



{PAD WITH BLANKS 



3BD5 3620 
3807 23 
3SD8 10FB 
38DA 1808 
38DC 0603 
3BDE 13 
3BDF 1A 
38E0 77 
36E1 23 
38E2 10FA 
3BE4 3A6732 
38E7 320739 
. 3BEA 3A6A32 
3BED 320F39 
36F0 3A643Z 
38F3 3D 
38F4 FEFF 
38F6 2008 
3BFB 3A6532 
38FB 3D 
38FC 326532 
38FF 3A6632 

3902 3D 

3903 3Z6432 
3906 FE00 
3908 C21639 
390B 3A6532 
390E FE00 
3910 CA5539 
3913 3A6432 
3916 210030 
3919 SF 
391A 3A6532 
3910 00 
391E 57 
391F 3A6932 

3922 4F 

3923 CO7042 
3926 C26C39 

3929 7E 
392A CB77 
392C 201B 
392E CB67 

3930 2002 
3932 1815 
3934010500 

3937 E5 

3938 09 

3939 0608 
393B 11EA39 
393E 1A 
393F BE 

3940 2006 

3942 13 

3943 23 

3944 10FB 
3946 1B6D 

3948 El 

3949 012000 
394C 09 
394D 7C 
394E FEEF 

3950 CAF038 
3953 1804 
3955 3E0A 
3957 21DE39 
395A EF 
395B 0604 
3950 CD3E34 
3960 219A39 
3963 3E0A 

3965 EF 

3966 CD4234 

3969 C3F835 
396C CBFF 
396E CBF7 

3970 4F 

3971 CS 

3972 0E0A. 
3974 3E02 
3976 EF 



06450 LK2 

06460 

06470 

06480 

06490 NEXTZ 

06500 NEXTZA 

06510 

06520 

06530 

06540 

06550 NXTA1 

06560 ■ 

06570 

06580 

06590 NXT2 

06600 

06610 

06620 

06630 

06640 

06650 

0«660 

06670 

06680 0K1B 

06690 MNSEC1 

06700 

06710 

06720 OOIRTl 

06730 

06740 

06750 0K1C 

06760 

06770 

06780 DBL3 

06790 

06800 

06810 

06820 

06830 

06840 NL1A 

06850 

06B60 

06670 

06880 

06890 

06900 NL1 

06910 

06920 

06930 

06940 

06950 NL 

06960 

06970 

069B0 

06990 

07000 

07010 

07020 NXT3 

07030 NXT3A 

07040 

07050 

07060 E0B2 

07070 

07080 

07090 NFOUND 

07100 

07110 

07120 

07130 

0714J PETR 

07150 

07160 

07170 



07190 EXT 

07200 

07210 

07220 

07230 

07240 

07250 



LD 

INC 

DJNZ 

JR 

LD 

INC 

LD 

LO 

INC 

DJNZ 

LD 

LD 

LD 

LO 

LD 

DEC 

CP 

JR 

LD 

DEC 

LD 

LD 

DEC 

LD 

CP 

JP 

LD 

CP 

JP 

LO 

LD 

LO 

LD 

NOP 

LD 

LD 

LD 

CALL 

JP 

LO 

BIT 

JR 

BIT 

JR 

JR 

LD 

PUSH 

ADO 

LD 

LD 

LD 

CP 

JR 

INC 

INC 

DJNZ 

JR 

POP 

LD 

ADD 

LD 

CP 

JP 

JR 

LD 

LD 

RST 

LD 

CALL 

LD 

LD 

RST 

CALL 

JP 

SET 

SET 

LD 

PUSH 

LD 

LD' 

RST 



(HD.32 

HL 

LK2 

NXTA1 

Bi3 

DE 

A.(DE) 

(HL).A 

HL 

NEXTZA 

A.(KNSEC) 

(MNSEC1+D.A 

A.(OIRT) 

(ODIRTltl).A 

A. (SEC) 

A 

0FFH 

NZ.0K1B 

A.(TRK) 

A 

(TRK).A 

A. (MSEC) 

A 

(SEC). A 



NZ.0K1C 

A.(TRK) 



Z.NFOUND 

A. (SEC) 

HL . BUFFER 

E.A 

A.(TRK) 

D.A 

A.(SDRV) 
C.A 
DODISK 
NZ.EXT 
A.(HL) 
6.A 

NZ.NXT3A 
4. A 
NZ.NL1 
NXT3A 
BC5 
HL 

HL.BC 
B.ll 
DE.FN 
A.(DE) 
(HL) 
NZ.NXT3 
DE 
HL 
NL 

FOUND 
HL 

BC.32 . 
HL.BC 
A.H 
0EFH 
Z.NXT2 
NL1A 
A.DSPLY 
HL.NMAT 
28H 
B.4 
BEEP 
HL.EXITQ 
A.DSPLY 
29H 
GETKEY 
BQD1P 
7, A 
6.A 
C.A 
BC 

C0AH 
A, DSP 
2BH 



{FILE EXTENT 



{BEGINNING OF DIRECTOR 



,^ 



{SECTOR BUFFER 
{SECTOR 



{TRACK 
{DRIVE 
{EXIT IF ERROR 



V 



{START OF FILENAME 
{SAVE HL 

{NUMBER OF CHARACTERS 
{FILE NAME TO FINO 
{FIRST LETTER IN A 
{FILE NAME IN OIRECTOR 
{TRY NEXT ONE 
{NEXT LETTER 

• U » 

1 

{LOOP 

{MATCHED 

{NO MATCH 

{NEXT DIRECTORY RECORD 



;ENO OF SECTOR GET NEXT ONE 
{COMPARE NEXT RECORD 



f 



3777 3E02 


07240 


LO 


A, DSP 




3BA4 23 


07970 


INC 


HL 


3979 EF 


07270 


RST 


28H 




3BA7 13 


07980 


INC 


DE 


397A CI 


07280 


POP 


BC 




3BA8 10FB 


07990 


DJNZ 


COMF1 


397B 3E1A 


07290 


LO 


A, ERROR 


; ERROR SVC 


3BAA 3E87 


06000 


LO 


A.B7H (DOUBLE STEP FOR Kt 


397D EF 


07300 


RST 


2BH 




3BAC 1802 


08010 


JR 


BG1 


397E 3E0A 


07310 EXT1AB 


i LO 


A.OSPLY 




3BAE 3E00 


08020 NOTSM 


LD 


A>0 


3780 219A39 


07320 


LO 


HL.EX1TQ 




3BB0 32CD37 


08030 BG1 


LD 


(DBLl).A 


3983 EF 


07330 


RST 


28H 




3BB3 321038 


08040 


LO 


(DBL2I.A 


3984 0600 


07340 


LO 


B.0 




3BB4 321039 


08050 


LD 


(DBL31.A 


3986 CD3E34 


07350 


CALL 


BEEP 




3BB9 324943 


08060 


LD 


(DBL41.A 


3989 3E01 


07360 


LO 


A .KEY 




3BBC 32CD43 


0B070 


LD 


(DBL51.A 


398B EF 


07370 


RST 


28H 




3BBF C9 


08080 


RET 




398C FEW 


073B0 


CP 


13 




3BC0 0A0A 


08090 DIREC1 


DEFU 


0A0AH 


398E CAF835 


07390 


JP 


Z.BQDIR 




3BC2 44 


0B100 


OEFM 


'DRIVE !' 


3991 FES0 


07400 


CP 


80 




52 49 54 45 20 3A 






3993 2B02 


07410 


JR 


ZfQUIT 




3BC9 03 


08110 


DEFB 


3 


3993 1BE7 


07420 


JR 


EXT1AB 


lASK AGAIN 


3BCA 3E0A 


08120 DIRECT 


LD 


A.OSPLY 


3997 3E16 


07430 QUIT 


LO 


A.EXIT 




3BCC 21C03B 


08130 


LO 


HL.DIREC1 


3999 EF 


07440 


RST 


28H 




3BCF EF 


08140 


RST 


28H 


399A 0A 


07450 EXITQ 


OEFB 


0AH 




3BO0 3A0032 


08150 


LD 


A. (SOD 


399B 51! 


07460 


OEFM 


'PRESS <ENTER> TO CONTINUE' 


3BD3 32DA3B 


08160 


LD 


(DIREC2+D.A 


52 45 53 53 20 3C 45 4E 54 45 52 3E 20 54 4F 2d 


3BD4 C04234 


08170 


CALL 


GETKEY 


43 4F 4E 54 49 4E 55 45 






3B09 FE00 


06160 DIREC2 


CP 





39B4 03 


07470 


OEFB 


3 




3B0S CA153D 


08190 


JP 


Z.0K1DIS 


39B5 21D539 


07480 FOUND 


LD 


HL.FNDM 




3BDE F5 


08200 


PUSH 


AF 


39B8 3E0A 


07490 


LO 


A.OSPLY 




3B0F 3E02 


06210 


LO 


A.OSP 


39BA EF 


07500 


RST 


28H 




3BE1 0E0D 


08220 


LD 


C.0DH 


39BB El 


07510 


POP 


HL 




3BE3 EF 


08230 


RST 


2BH 


39BC C0B742 


07520 


CALL 


BSFCH 




3BE4 Fl 


08240 


POP 


AF 


39BF C26C39 


07530 


JP 


N2.EXT 




38E5 0430 


0B250 


SUB 


30H 


39C2 C32F35 


07540 


JP 


SEARCH 




3BE7 4F 


0B260 


LD 


C.A 


39C5 0000 


07550 COUNT 


OEFU 







3BE8 3E21 


0B270 


LD 


A.CKDRV 


39C7 43 


07S40 COPYQ 


OEFM 


'COPY?' 




3BEA EF 


08280 


RST 


28H 


4F 50 59 3F 








3BEB C26C39 


08290 


JP 


NZ.EXT 


39CC 03 


07570 


OEFB 


3 




3BEE 3E51 


06300 


LD 


A.GTDCT 


39CD 0000 


07580 CSEC 


DEFU 





(NUMBER OF CONTIGUOUS SECTORS 


3BF0 EF 


08310 


RST 


28H 


39CF 0000 


07590 STRK 


OEFU 





STARTING TRACK 


3BF1 C5 


08320 


PUSH 


BC 


39D1 0000 


07400 5SEC 


DEFU 





(STARTING SECTORtGRANULE OFFSET 


3BF2 FD6E06 


08330 


LD 


Li(IYti) 


39D3 0000 


07610 LENGTH 


DEFU 





i TOTAL LENGTH OF FILE 


3BF5 2C 


06340 


INC 


L 


39D5 0A0A 


07420 FNDM 


DEFU 


0A0AH 




3BF6 2400 


06350 


LD 


H.0 


3907 44 


07630 


OEFM 


'Found.' 




3BF6 119532 


08360 


LD 


DE.UMES2 


6F 75 6E 44 2E 








3BFB 3E41 


06370 


LO 


A.HEXDEC 


39DD 00 


07640 


OEFB 


0DH 




3BFD EF 


08380 


RST 


ZBH 


39DE 0A0A 


07650 NMAT 


DEFU 


0A0AH 




3BFE 219532 


08390 


LO 


HL.UMES2 


37E0 4E 


07660 


OEFM 


'No Match.' 




3C01 11CA3C 


08400 


LD 


OE.CATM+31 


6F 20 40 41 74 43 68 2E 






3C04 010500 


08410 


LD 


BC5 


39E9 0D 


07670 


DEFB 


0DH 




3C07 EDB0 


08420 ' 


LOIR 




001E 


07660 FN 


DEFS 


30 


(FILENAME PLUS 1 


3C09 CI 


08430 


POP 


BC 


3A08 1C1F 


07490 OIR 


DEFU 


1F1CH 


iCLS 


3C0A FD5409 


06440 


LD 


0,(IY+9) 


3A0A 4E 


07700 


OEFM 


'NAME= ' 




3C0D 210030 


08450 


LD 


HL.BUFFER 


41 40 45 3A 20 








3C10 3E55 


06460 


LD 


A.ROSSC 


0008 


07710 NAME 


DEFS 


B 




3C12 1E00 


08470 


LO 


E.0 


3A18 20 


07720 


OEFM 


DATE: ' 




3CU EF 


084B0 


RST 


28H 


20 20 20 20 44 41 54 45 3A 20 






3C15 3E30 


08490 


LD 


A.30H 


0008 


07730 DATE 


DEFS 


8 




3C17 Bl 


06500 


ADD 


A.C 


3A2B 0A0D 


07740 


DEFU 


0D0AH 




3C18 32B43C 


06510 


LD 


(CATHW.A 


3A20 20 


07750 B3 


DEFM 


j i 




3C1B C5 


08520 


PUSH 


BC 


20 20 20 20 20 20 20 20 20 20 






3C1C 21D030 


08530 


LO 


HL.BUFFER+0O0H (DISK NAME 


3A38 20 


07740 


DEFM 


' ' 




3C1F 11B73C 


06540 


LD 


DE.CATM+12 


20 20 20 20 








3C22 010800 


08550 


LD 


BC.6 


3A30 03 


07770 


OEFB 


3 




3C25 EDB0 


06560 


LOIR 




3A3E 0A0A 


07780 FIL 


DEFU 


0A0AH 




3C27 13 


08570 


INC 


OE 


3A40 46 


07790 


DEFM 


'Fi lenane:' 




3C2B 13 


085B0 


INC 


DE 


49 4C 65 4E 41 40 45 3A 






3C29 010800 


08590 


LD 


BC8 


3A49 03 


07S00 


OEFB 


03H 




3C2C EDB0 


08400 


LOIR 




0020 


07B10 MFCB1 


DEFS 


32 




3C2E CI 


08410 


POP 


BC 


0020 


07820 FCB2 


DEFS 


32 




3C2F 41 


08420 


LD 


B.C 


3A6A 0000 


07830 UFCB 


DEFU 







3C30 0EFF 


08430 


LD 


C255 (GET FREE SPACE 


0100 


07840 BUFFR1 


DEFS 


254 




3C32 21A73C 


08440 


LD 


HL.FSTD 


3B6C 1401 


07850 CMPARE 


LD 


Dil 


;IF TRACK ONE = TRACK 


3C35 3E23 


06450 


LD 


A.RAMDIR 


3B8E 1E02 


07660 


LD 


E.2 


,-THEN DOUBLE STEP 


3C37 EF 


08460 


RST 


28H 


3B90 3A4932 


07870 


LD 


A.(SDRV) 




3C38 C5 


08670 


PUSH 


BC 


3B93 4F 


07880 


LD 


C.A 


(DRIVE 


3C39 119532 


086B0 


LD 


0E.UMES2 


3B94 218C3A 


07890 


LO 


HL.BUFFR1 




3C3C 2AA93C 


08690 


LD 


HL,(FST0+2) (FREE SPACE 


3B97 3E31 


07900 


LD 


A.RDSEC 


(READ SECTOR 


3C3F 3E61 


08700 


LO 


A.HEXDEC 


3B99 EF 


07910 


RST 


26H 




3C41 EF 


08710 


RST 


2BH 


3B9A 0600 


07920 


LO 


B>0 


(254 


3C42 11E13C 


08720 


LD 


DE.CATM+54 


3B9C 11BC3A 


07930 


LD 


DE.BUFFR1 




3C45 219532 


08730 


LO 


HL.UMES2 


3B9F 210030 


07940 


LD 


HL, BUFFER 




3C48 010500 


08740 


LD 


BC.5 


3BA2 ED52 


07950 COMF1 


SBC 


HL.DE 




3C4B EOB0 


06750 


LDIR 




3BA4 2008 


07960 


JR 


NZiNOTSM 




3C4D 2AA73C 


06760 


LO 


HL.(FSTD) 



3C50 ED4BA73C 0B770 


LD 


BC.(FST0+2) 


304B 7? 


09510 


LD 


(HL).A 


3C54 09 


0B780 


ADD 


HL.BC 


304C CD0842 


09520 


CALL 


FRESET 


3CSS 119532 


06790 


LO 


0E.UHES2 


3D4F 210030 


09530 


LD 


HL.BUFFER 


3C5B 3E61 


08800 


LD 


AiHEXDEC 


3052 3A6A32 


09540 


LD 


A, (DIRT) 


3CSA EF 


06810 


RST 


28H 


3055 57 


09550 


LD 


O.A 


3C5B 11ED3C 


06820 


LD 


DE.CATH+66 


3056 3A6B32 


09560 


LD 


A.(DIRB) 


3C5E 219532 


08830 


LD 


HL.UMES2 


3059 5F 


09570 


LO 


E.A 


3C61 010500 


08640 


LD 


BCi5 


305A 3A6932 


09580 


LD 


A.(SORV) 


3C64 EDB0 


16650 


LOIR 




3D5D 4F 


09590 


LD 


C>A 


3C66 21AB3C 


0B860 


LD 


HL.CATM 


3D5E CD7042 


09600 


CALL 


DODISK iREAD NEUOOS GAT TABLE 


3C49 3E0A 


08870 


LD 


AiOSPLY 


3D61 21D030 


09610 


LD 


HL.BUFFER+0O0H iOISK NAME 


3C6B EF 


06680 


RST 


28H 


3064 11463E 


09620 


LD 


DE.FREEM2+10 


3C6C CI 


06890 


POP 


BC 


3D67 010800 


09630 


LO 


BC.8 


3C6D 0E00 


08900 


LD 


Ci0 IGET DIRECTORY RECORDS OF VIS FILE5 


3D6A EDB0 


09640 


LD1R 




3C6F 2A7D45 


06910 


LD 


HL.(STDIR) 


3D6C 13 


09650 


INC 


DE 


3C72 3E23 


06920 


LD 


A.RAMDIR 


3060 13 


09660 


INC 


DE 


3C74 EF 


08930 


RST 


28H 


3D6E 010600 


09670 


LD 


BOB 


3C75 C26C39 


08940 


JP 


NZiEXT 


3071 EDB0 


09680 


LOIR 




3C78 E5 


06950 


PUSH 


HL iFILE NAME PRINT - LOOP 3 


3073 110030 


09690 


LD 


DE.8UFFER 


3C79 0610 


0B960 FNPL3 


LD 


B.16 


3D76 21E43E 


09700 


LO 


HL.FREEH3+8 


3C7B 7E 


0B970 FNPL1 


LD 


Ai(HL) iFILE NAME PRINT - LOOP 1 


3079 1A 


09710 NB0 


LD 


A.(DE) 


3C7C FE3A 


08980 


CP 


>:' 


3D7A CB47 


09720 


BIT 


0.A 


3C7E 2807 


06990 


JR 


Z.FNPL2 iCOLON FOUND 


3D7C 2802 


09730 


JR 


Z.NB1 


3CB0 4F 


09000 


LD 


CiA 


307E 3678 


09740 


LO 


(HL).V 


3CS1 3E02 


09010 


LD 


A. DSP 


3060 23 


09750 NB1 


INC 


HL 


3CB3 EF 


09020 


RST 


28H 


3D81 CB4F 


09760 


BIT 


1>A 


3C84 23 


09030 


INC 


HL 


3D83 2602 


09770 


JR 


Z.NB2 


3CB5 10F4 


09040 


DJNZ 


FNPL1 


3085 3678 


09780 


LD 


(HL).'x' 


3C67 3E02 


09050 FNPL2 


LD 


AiDSP iFILE NAME PRINT - LOOP 2 


3087 23 


09790 NB2 


INC 


HL 


3C89 0E20 


09060 


LD 


C20H 


30B8 13 


09800 


INC 


OE 


3CB8EF 


09070 


RST 


28H 


3089 7B 


09B10 


LD 


A.E 


3CBC 10F9 


09080 


DJNZ 


FNPL2 


308A FE00 


09820 CFLT 


CP 





3C8E El 


09090 


POP 


HL 


3DBC 2813 


09830 


JR 


Z.LTF 


3CBF 011600 


09100 


LD 


BC.22 


308E7E 


09840 


LD 


A.(HL) 


3C72 09 


09110 


AOO 


HLiBC 


3DBF FE04 


09850 


CP 


4 


3C93 3E2B 


09120 


LD 


Ai't' 


3091 2806 


09860 


JR 


2, NBS 


3C95BE 


09130 


CP 


(HL) 


3093 FE05 


09870 


CP 


5 


3C96 2603 


09140 


JR 


Z.0K1DNE 


3095 2B0D 


09B80 


JR 


Z, PRFREE 


3C96 E5 


09150 


PUSH 


HL 


3097 23 


09890 


INC 


HL 


3C99 1BDE 


09160 


JR 


FNPL3 


3098 23 


09900 


INC 


HL 


3C9B 3E0A 


09170 OK10NE 


LD 


A.DSPLY 


3099 18DE 


09910 


JR 


NB0 


3C9D 21FB3C 


09180 


LD 


HL.ENTER1 


309B 010B00 


09920 NBS 


LO 


BOH 


3CA0EF 


09190 


RST 


28H 


3D9E 09 


09930 


ADD 


HL.BC 


3CA1 CD4234 


09200 


CALL 


GETKEY 


3D9F 1808 


09940 


JR 


NB0 


3CA4 C3FB35 


09210 


JP 


B0D1R 


30A1 CD1C42 


09950 LTF 


CALL 


CLROUT 


0004 


09220 FSTD 


DEFS 


4 


3DA4 CD4442 


09960 PRFREE 


CALL 


FRESPC 


3CAB 1C1F 


09230 CATH 


OEFU 


1F1CH 


3DA7 U353E 


09970 


LD 


DE.FREBUF 


3CA0 44 


09240 


DEFM 


'Drive "' 11111111 11111111 


30AA 3E61 


09980 


LD 


AiHEXDEC 








V. Cylr DDENi Free = ??.00K / ,.■'«. 00K' 


3DAC EF 


09990 


RST 


28H 


72 69 76 65 20 3A 3F 20 20 3F 3F 3F 3F 3F 3F 3F 


3DAD 11693E 


10000 


LD 


0E.FREEMZM5 


3F 20 20 3F 3F 3F 3F 3F 3F 3F 3F 20 20 20 20 3F 


3DB0 21353E 


10010 


LD 


HL-FREBUF 


3F 20 43 79 6C 2C 20 44 44 45 4E 2C 20 46 72 45 


3DB3 010300 


10020 


LD 


B03 


65 20 3D 20 20 20 3F 3F 2E 30 30 4B 20 2F 20 20 


3DB6 EDB0 


10030 


LOIR 




20 3F 3F 3F 2E 30 30 48 




3DB8 13 


10040 


INC 


OE 


3CF6 0A0D 


09250 


OEFU 


0D0AH 


3DB9 010200 


10050 


LO 


BC.2 


3CF6 0A0A 


09260 ENTER1 


OEFU 


0A0AH 


3DBC EDB0 


10060 


LOIR 




3CFA 50 


09270 


DEFM 


'PRESS <ENTER> TO CONTINUE' 


3DBE CD2942 


10070 


CALL 


TOTSPC 


52 45 53 53 20 3C 45 4E 54 45 52 3E 20 54 4F 20 


30C1 U353E 


100B0 


LO 


DE.FREBUF 


43 4F 4E 54 49 4E 55 45 




3DC4 3E61 


10090 


LO 


A>HEXDEC 


3D13 0D 


09280 


OEFB 


0DH 


3DC6 EF 


10100 


RST 


28H 


0001 


09290 0K1BUF 


DEFS 


1 


3DC7 11733E 


10110 


LD 


DE.FREEM2+55 


3015 3A5E38 


09300 OK1DIR 


LD 


A.(OIRDNE) 


3DCA 21353E 


10120 


LD 


HL.FREBUF 


3D18 321430 


09310 


LO 


(OKIBUF).A 


3DCD 010300 


10130 


LD 


B03 


301B 3EC9 


09320 


LD 


A.0C9H 


3000 EOB0 


10140 


LDIR 




3D1D 325E3B 


09330 


LD 


(DlRDNE)iA 


3DD2 13 


10150 


INC 


DE 


3020 CDBE37 


09340 


CALL 


ROIR 


3DD3 010200 


10160 


LD 


BC.2 


3023 3A143D 


09350 


LD 


Ai(OKlBUF) 


3DD6 EDB0 


10170 


LDIR 




3026 325E38 


09360 


LD 


(DIRDNE).A 


30DB 210030 


10180 


LD 


HL.BUFFER 


3029 C39B3C 


09370 


JP 


0K1DNE 


3DDB 3A6932 


10190 


LD 


A.(SDRV) 


302C 210541 


09380 FREE 


LO 


HL.FREEMH30 


30DE 4F 


10200 


LD 


C.A 


3D2F 3A4332 


09390 


LD 


A.(SFLAG) 


3DDF 3A6632 


10210 


LD 


A.(DIRB) 


3032 C630 


09400 


ADO 


A>30H 


3DE2 3C 


10220 


INC 


A 


3034 77 


29410 


LD 


(HL).A 


3DE3 5F 


10230 


LD 


E.A 


3035 3A4332 


09420 


LD 


A.(SFLAG) 


3DE4 3A6A32 


10240 


LO 


A.(OIRT) 


3038 FE01 


09430 


CP 


1 


3DE7 57 


10250 


LD 


D.A 


3D3A 2804 


09440 


JR 


Z.F1S 


3DE8 CD7042 


10260 


CALL 


DODISK iLOAD IN HIT TABLE 


3D3C 3E90 


09450 


LO 


A, 144 


3DEB 3AA132 


10270 


LD 


A, (LDIR) iDIR LENGTH IN GRANS 


303E 1802 


09460 


JR 


FRCNT 


3DEE 4F 


10280 


LD 


C.A 


3040 3E4B 


09470 F1S 


LD 


A.72 


3DEF 1E05 


10290 


LO 


E.5 15 5ECT0RS PER GRAN 


3042 32BB30 


09480 FRCNT 


LD 


(CFLTtl).A 


30F1 3E5A 


10300 


LD 


A.MUL8 


3045 21433E 


09490 


LD 


HL.FREEM2+7 


3DF3 EF 


10310 


RST 


28H 


304B 3A0032 


09S00 


LO 


A, (SOD 











d 



4* 
i 



r 



c 



3DF4 D40Z 10320 SUB 2 j-2, 1 FOR GAT.l FOR HIT 




3DF4 4F 10330 LD C.A iNUHBER OF DIR RECORDS 




3DF7 210800 10340 LO HL.8 ;S FILES ON EACH RECORD 




30FA 3E5B 10350 LD A.MUL14 




3DFC EF 10340 RST 28H 




3DFD 45 10370 LD H>L 




30FE 4F 10380 LD LiA iTOTAL NUMBER OF FILES 




3DFF 22333E 10370 LD (IDIRt).HL 




3E02 3E41 10400 LD A.HEXDEC 




3E04 11353E 10410 LO DE.FREBUF 




3E07 EF 10420 RST 28H 




3E0B 21373E 10430 LD HL.FREBUF+2 




3E0B 118B3E 10440 LD DE.FREEM2+74 




3E0E 010300 10450 LD BC.3 




3E11 EOB0 10440 LDIR 




3E13 2A333E 10470 LO HL>(LDIR1) 




3E14 CDS742 104B0 CALL FRED1R 




3E1? 11353E 10470 LD DE.FREBUF 




3E1C 3E41 10S00 LD A.HEXDEC 




3E1E EF 10510 RST 28H 




3E1F 21373E 10520 LD HL.FREBUF+2 




3E22 11843E 10530 LD 0E.FREEM2+72 




3E25 010300 10540 LD BC.3 




3E28 EDB0 10550 LDIR 




3E2A Z13A3E 10540 LD HL.FREEH 




3E2D 3E0A 10570 LD A.OSPLY 




3E2F EF 10580 RST 28H 




3E30 C34039 10570 JP PETR 




0002 10400 LDIR1 OEFS 2 




0005 10410 FREBUF DEFS 5 




3E3A 1C1F 10420 FREEH OEFU 1F1CH 




3E3C 44 10630 FREEM2 DEFM 'Drive:? ???????? ???????? Free Space = ???.??K/ 


"' "K Files = Wl/lll 


72 47 74 45 20 3A 3F 20 20 3F 3F 3F 3F 3F 3F 3F 




3F 20 20 3F 3F 3F 3F 3F 3F 3F 3F 20 20 20 44 72 




45 45 20 53 70 41 43 45 20 3D 20 20 3F 3F 3F 2E 




3F 3F 4B 2F 20 20 3F 3F 3F 2E 3F 3F 4B 20 20 44 




47 6C 45 73 20 3D 20 3F 3F 3F ZF 3F 3F 3F 20 




iFflr ?n , 1GI/.&0I nPFM . 




JLOL cm ' 1100410 ucrn — ~^- 

20 20 20 2D 2D 20 2D 2D 20 20 2D 20 2D 20 20 2D 




2D 2D 2D 2D 20 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 




20 2D 20 20 2D 20 20 20 2D 2D 20 20 20 20 20 2D 




2D 2D 2D 2D 2D 2D 2D 2D 2D 20 2D 2D ZD 20 2D 2D 




■ 20 2D 20 20 20 20 20 20 20 20 20 20 20 20 20 




3EDC 20 10450 FREEH3 DEFH ' 0-17 


i 


20 30 20 20 31 37 20 2E 2E 20 20 2E ZE 20 20 2E 




2E 20 20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 20 ZE 




2E 20 20 2E 2E 20 20 ZE 2E Z0 20 2E ZE 20 20 2E 




2E 20 20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 20 ZE 




2E 20 20 2E 2E 20 20 2E 2E 20 20 2E 2E 




3F2A 04 10640 OEFB 4 




3F2B 20 10470 DEFM ; 18-35 




20 20 31 38 2D 20 33 35 20 2E 2E 20 20 2E 2E 20 




20 2E 2E Z0 20 ZE 2E 20 20 2E 2E 20 20 2E 2E 20 




20 2E 2E 20 20 2E 2E Z0 20 2E 2E 20 20 2E 2E 20 




20 2E 2E 20 20 2E 2E 20 20 ZE ZE 20 20 2E 2E 20 




20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 20 2E 2E 




3F7B 04 10480 DEFB 4 




3F7C 20 10670 DEFM ' 36-53 




20 20 33 34 20 20 35 33 20 2E 2E Z0 Z0 ZE 2E 20 




20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 




20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 




20 ZE 2E Z0 20 2E 2E 20 20 ZE 2E 20 20 2E ZE 20 




20 2E 2E 20 20 ZE 2E 20 20 ZE ZE 20 20 ZE 2E 




3FCC 04 10700 OEFB 4 




3FCD 20 ' 10710 DEFM ' 54-71 




20 20 35 34 ZO 20 37 31 20 2E ZE 20 20 2E 2E 20 




20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 20 2E ZE Z0 




20 2E ZE 20 20 2E ZE Z0 20 2E 2E 20 20 2E 2E 20 




20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 




20 2E 2E 20 20 2E 2E 20 20 2E 2E 20 20 2E 2E 




401D 04 10720 OEFB 4 




401E 20 10730 DEFM ' 72-87 




20 20 37 32 ZO 20 36 37 20 2E 2E 20 20 2E ZE 20 




20 2E ZE 20 20 2E 2E 20 20 2E 2E Z0 20 2E 2E 20 




20 2E ZE 20 20 2E 2E 20 20 2E ZE Z0 20 2E 2E 20 




20 2E 2E 20 20 2E 2E 20 20 2E ZE Z0 Z0 2E 2E 20 




20 2E ZE Z0 Z0 2E 2E 20 20 2E 2E 20 20 2E 2E 




406E 04 10740 DEFB 4 




404F 20 10750 DEFM ' 70-107 




20 20 37 30 20 31 30 37 20 2E 2E 20 20 2E 2E 20 




20 ZE ZE 20 Z0 2E 2E 20 20 2E 2E 20 20 2E 2E 20 





20 2E2E 
20 2E2E 
20 2E2E 

40BF 04 

40C0 20 

20 31 30 
20 2E 2E 
20 2E ZE 
20 2E2E 
20 2E2E 

4110 04 

4111 20 

20 31 32 
20 2E 2E 
20 2E 2E 
20 2E 2E 
20 2E2E 

4161 0505 

4163 0505 

4165 20 

20 2D 2D 
2D 2D 2D 
2D 2D 2D 
2D 2D 2D 
20 20 2D 
20 

41B7 54 
• 79 70 65 
79 20 20 
20 44 65 
45 20 20 
69 74 69 

4207 00 

4208 21DC3E 
420B 23 
420C 7E 
420D FE05 
420F C8 
4210 FE7B 
4212 2804 
4214 FE80 
4216 20F3 
4218 362E 
421A 1BEF 
421C 23 
4210 7E 
421E FE05 

4220 C8 

4221 FE2E 
4223 20F7 
4225 3680 
4227 18F3 

4229 11DC3E 
422C 210000 
422F 017D00 

4232 13 

4233 1A 

4234 FE05 

4236 C8 

4237 FE2E 

4239 2806 
423B FE78 

4230 2B02 
423F 18F1 

4241 09 

4242 18EE 
4244 11DC3E 
4247 210000 
424A 017D00 

4240 13 
424E 1A 
424F FE05 

4251 CB 

4252 FE2E 
4254 2001 

4256 09 

4257 1BF4 

4259 110030 
425C 210000 
42SF1A 

4260 FE00 



20 20 2E 
20 20 2E 
20 20 2E 
10760 
10770 
38 2D 31 
20 20 2E 
20 20 2E 
20 20 2E 
20 20 2E 
10780 
10790 
36 20 31 
20 20 2E 
20 20 2E 
20 20 2E 
20 20 2E 
10800 
10810 
10820 
20 20 20 
2D 2D 20 
2D 2D 2D 
2D 20 2D 
ZD 20 20 



2E 20 20 2E 
2E 20 20 2E 
2E 20 20 2E 
DEfB 
DEFH 
32 35 20 2E 
2E 20 20 2E 
2E 20 20 2E 
ZE Z0 20 ZE 
2E 20 20 2E 
DEFB 
DEFH 
34 33 20 2E 
2E 20 20 ZE 
ZE Z0 Z0 2E 
2E 20 20 2E 
2E 20 20 2E 
DEFU 
DEFH 
DEFH 
20 20 20 20 
2D 20 20 20 
20 20 20 ZD 
ZD ZD ZD 2D 
20 20 20 20 



2E20Z0 2E 
ZE 20 20 2E 
2E 20 20 2E 

4 

' 108-125 
2E 20 20 2E 
2E 20 20 2E 
2E 20 20 2£ 
ZE 20 20 2E 
2E Z0 Z0 ZE 

4 

' 124-143 
ZE 20 20 2E 
2E 20 20 2E 
2E 20 20 2E 
2E 20 20 2E 
2E 20 20 2E 

0505H 

0S05H 



ZEZ0 
2E20 
2E 



2E20 
ZE 20 

2E20 
ZE20 
2E 



2E20 
2E20 
2E 20 
2E 20 
2E 



2D 20 2D ZD 20 20 
ZD ZD ZD 2D 20 2D 
2D 20 20 20 20 20 
20 20 2D 2D 20 20 
20 2D 20 20 2D 20 



10B30 FREEM1 DEFH 'Type => 5" Floppy 
20 3D 3E 20 20 35 22 20 46 6C 6F 70 70 
20 20 4B 65 61 64 73 20 3D' Z0 3F 20 20 
4E 73 49 74 79 20 30 20 44 4F 55 42 4C 
20 4E 6F 74 65 20 20 20 31 20 50 6F 73 
6F 6E 20 3D 20 20 31 ZE 32 35 4B 20 



Heads « ? Density = DOUBLE Note - 1 Position * 1.25K 



10840 

10850 FRESET 

10860 FRLP1 

10670 

10880 

10890 

10900 

10910 

10920 

10930 

10940 HP 

10950 NMP 

10960 CLROUT 

10970 

10960 

10990 

11000 

11010 

11020 

11030 

11040 TOTSPC 

11050 

11060 

11070 FRLP3 

11080 

11090 

11100 

11110 

.11120 

11130 

11140 

11150 

11160 TOTADD 

11170 

11180 FRESPC 

11190 

11200 

11210 FRLP2 

11220 

11230 

11240 

11250 

11260 

11270 

11280 NAP 

11290 FREQIR 

11300 

11310 FRDR1 

11320 



DEFB 

LD 

INC 

LD 

CP 

RET 

CP 

JR 

CP 

JR 

LD 

JR 

INC 

LD 

CP 

RET 

CP 

JR 

LD 

JR 

LD 

LD 

LO 

INC 

LO 

CP 

RET 

CP 

JR 

CP 

JR 

JR 

ADD 

JR 

LD 

LO 

LD 

INC 

LD 

CP 

RET 

CP 

JR 

AOO 

JR 

LD 

LD 

LO 

CP' 



0OH 

HL.FREEH3 

HL 

Ai(HL). 

5 

Z 

V 

Z>HP 

B0H 

NZ.FRLP1 

(HL),'.' 

FRLP1 

HL 

A.(HL) 

5 

Z 

J > 

NZ.CLROUT 

(HL)>B0H 

CLROUT 

0E.FREEH3 

HL.0 

BC.125 

DE 

Ai(DE) 

5 

I 

Z, TOTADD ■ 

V 

Z> TOTADD 

FRLP3 

HL.BC 

FRLP3 

DE.FREEM3 

HL.0 

BC125 

DE 

A.(DE) 

5 

Z 

NZ.NAP 
HL.BC 
FRLPZ 
DE.8UFFER 

HL.0 
.A,(OE) 



1^ 



s\ 



n: 



io 



4242 2801 


11330 


JR 


Z.NFRDR 




42F0 226A3A 


12140 


LD 


(UFCB).HL 


ISAVE HL POINTER 


4244 23 


11340 


INC 


HL 




42F3 E6E0 


12150 


AND 


224 


iOFFSET FROM START (TRACK/SECTOR) 


4245 13 


11350 NFRDR 


INC 


OE 




42F5 07 


12160 


RLCA 




I EG. 1010000 


4246 7B 


11360 


LD 


A.E 




42F6 07 


12170 


RLCA 






4267 FEW 


11370 


CP 







42F7 07 


12180 


RLCA 




1 BECOMES 0000101 


424? Z0F4 


11380 


JR 


NZ.FR0R1 




42FB 4F 


12170 


LD 


C,A 


15 SECTORS'l GRAN 


424B C7 


11370 


RET 






42F? 1E05 


12200 


LD 


E.5 




0002 


11400 BUFSAV 


DEFS 


2 




42FB 3E5A 


12210 


LD 


A.MULB 




tm 


11410 SECCYL 


DEFS 


2 




42FD EF 


12220 


RST 


28H 


iA=5ECT0R OFFSET 


4270 224C42 


11420 DOOISK 


LD 


(BUFSAV) ,HL 




42FE 5F 


12230 


LD 


E.A 




4273 ED534E42 11430 


LD 


(SECCYL). DE 




42FF 1600 


12240 


LD 


D.0 




4277 C5 


11440 


PUSH 


BC 




4301 2ACF37 


12250 


LD 


HL.(STRK) 


ISTARTING SECTOR LESS SECTOR OFFS 


427B 3A6A32 


11450 


LD 


Ai(DIRT) 




4304 1? 


12260 


ADD 


HL.DE 


iACTUAL STARTING SECTOR IN HL 


427B 47 


11460 


LD 


B,A 




4305 3A6632 


12270 


LO 


A, (MSEC) 


I SECTORS PER TRACK 


427C 7A 


11470 


LD 


A.O 




4308 4F 


122B0 


LD 


C.A 




427D 90 


114B0 


SUB 


B 




4309 3E5E 


12270 


LO 


A.DIV14 




427E 47 


11470 


LD 


H,A 


iOIRECTORY TRACK-RAM 


430B EF 


12300 


RST 


2BH 




427F 3A4B32 


11500 


LD 


A.(DIRB) 




430C 320139 


. 12310 


LD 


(SSEC).A 


;A=RENAINOER-SECTOR 


4262 47 


11510 


LD 


B,A 




430F 7D 


12320 


LD 


A.L 


;HL«OUOTIENT-TRACK NUMBER 


42B3 7B 


11520 


LD 


A>E 




4310 32CF39 


12330 


LO 


(STRK).A 




4264 70 


11530 


SUB 


B 




4313 C34243 


12340 


JP 


BCOPY 




4265 6F 


11540 


LD 


L.A 


iDIRECTORY SECTOR-RAM 


4316 0F 


12350 CSM1 


DEFB 


15 




4284 7C 


11550 


LO 


A.H 




4317 20 


12360 


OEFM 


1 Copying Recor 


d ' 


42B7 4F 


11560 


LD 


CiA 




43 6F 70 77 69 6E 47 20 52 45 43 4F 72 44 20 




4268 3A6632 


11570 


LD 


A, (MSEC) 




4327 03 


12370 CSM2 


DEFB 


3 




428B 5F 


11SS0 


LD 


E.A 




4328 0000 


12360 


DEFU 







426C 3E5A 


11570 


LD 


A.MUL8 




432A 00 


12390 


DEFB 







426E EF 


11600 


RST 


28H 




432B 48 


12400 


OEFM 


'H' 




426F 65 


11610 


ADD 


A,L 




432C 1818 


12410 


DEFU 


1818H 




4270 67 


11620 


LD 


HiA 




432E 1818 


12420 


DEFU 


1818H 




4291 2E00 


11430 


LD 


L.0 




4330 1818 


12430 


DEFU 


1B1BH 




4273 010060 


11440 


LD 


BCiDIRBUF 




4332 1818 


12440 


DEFU 


1818H 




4296 09 


11450 


ADD 


HL.BC 




4334 1816 


12450 


DEFU 


1B18H 




4277 3A5F32 


11440 


LD 


A>(EODR) 




4334 1818 


12460 


DEFU 


1818H 




429A 94 


11470 


SUB 


H 




4338 1818 


12470 


DEFU 


181BH 




429B 2004 


11680 ., 


JR 


NZ.NEOO 




433A 1818 


12480 


DEFU 


1818H 


, 


429D 3E11 


11670 


LO 


A, 17 




433C IB 


12470 


DEFB 


18H 




429F 1B0B 


11700 


JR 


RETDO 




433D 1818 


12500 


DEFU 


1818H 




42A1 ED5B6C42 11710 NEOO 


LO 


DE. (BUFSAV) 




433F 1618 


12510 


DEFU 


161BH 




42A5 010001 


11720 


LD 


BC.256 




4341 03 


12520 


DEFB 


3 




42AB EDB0 


11730 


LDIR 






4342 3E3A 


12530 BCOPY 


LD 


A.INIT 


iOPEN/INITIALIZE FILE 


42AA 3E00 


11740 


LD 


A.0 


;-NOERROR 


4344 210030 


12540 


LD 


HL, BUFFER 




42AC CI 


11750 RETDO 


POP 


BC 




4347 114A3A 


12550 


LD 


DE.FCB2 




42AD 2A6C42 


11760 


LD 


HL. (BUFSAV) 




434A 0400 


12560 


LD 


8,0 


1254 LRL 


42B0 ED5B6E42 11770 


LO 


OE, (SECCYL) 




434C EF 


12570 


RST 


2BH 




42B4 FE00 


11780 


CP 







434D E05BC53? 12580 RLP1 


LD 


DE. (COUNT) 




42B6C7 


11770 


RET 






43S1 13 


12590 


INC 


DE 




42B7 114A3A 


11B00 BSFCH 


LD 


DE.MFCB1 




4352 ED53C537 12600 


LD 


(COUNT), DE 




42BA 012000 


11310 


LO 


BC32 




4354 212743 


12610 


LD 


HL.CSM2 




42BD EDB0 


11820 


LDIR 






4359 3E43 


12620 


LD 


A.HEX14 




42BF 214A3A 


11830 


LD 


HL.MFCB1 


;MY FCB1 


435B EF 


12430 


RST 


2BH 




42C2 011400 


11840 


LO 


BC.20 




435C 211443 


12440 


LD 


HL.CSM1 




42C5 07 


11850 


ADO 


HL.BC 


iFlLE LENGTH BYTES 


435F 3E0A 


12450 


LD 


A.DSPLY 




42C6 5E 


11860 


LD 


E.(HL) 




4341 EF 


12440 


RST 


2BH 




42C7 23 


11870 


INC 


HL 




4342 3AD137 


12470 


LD 


A.(SSEC) 




42C8 56 


11860 


LD 


D.(HL) 




4345 5F 


12480 


LD 


E.A 


I SECTOR 


42C9 ED53D337 11870 


LD 


(LENGTH), DE 


iSAVE 


4344 3ACF37 


12470 


LD 


A.(STRK) 




42CD 23 


11900 


INC 


HL 


INOU POINTS TO FIRST EXTENT 


4367 00 


12700 DBL4 


NOP 






4ZCE 4E 


11910 NFXDE1 


LD 


C(HL) 


i TRACK (10 SEC/TRACK-NEUDOS) 


436A 57 


12710 


LD 


D.A 


1 TRACK 


42CF E5 


11720 


PUSH 


HL 




436B 3A6732 


12720 


LD 


A.(SDRV) 




4200 210A00 


11730 


LO 


HL.lf 




436E 4F 


12730 


LD 


C.A 


lORIVE 1 


42D3 3E5B 


11740 


LO 


A.MUL16 




436F 210030 


12740 


LO 


HL.BUFFER 




4205 EF 


11750 


RST 


28H ;A=C»HL:STARTING SECTOR LESS SECTOR OFFSET 


4372 3E31 


12750 


LD 


A.RDSEC . 




42D6 65 


11760 


LD 


H,L 




4374 EF 


12740 


RST 


28H 




4207 6F 


11770 


LD 


L.A 




4375 C0 


12770 


RET 


NZ 




4208 22CF39 


11980 


LD 


(STRK).HL 


i STORE HERE. TEMP. 


4376 3E4B 


12780 


LD 


A.URITE 


lURITE RECORD TO FILE 


420B El 


11990 


POP 


HL 




4378 U6A3A 


12790 


LD 


DE.FCB2 




420C 23 


12000. 


INC 


HL 


;THIS BYTE CONTAINS 


437B EF 


12800 


RST 


28H 




42DD 7E 


12010 


LO 


A.(HL) 


i FIRST 5-BITS-NUMBER OF CONTIGUOUS 


437C C0 


12B10 


RET 


NZ 




42DE E61F 


12020 


AND 


31 


i GRANULES LESS ONE 


437D 2ACD39 


12820 


LD 


HL.(CSEC) 




42E0 3C 


1Z030 


INC 


A 




4360 2B 


12830 


DEC 


HL 




42E1 E5 


12040 


PUSH 


HL 




4361 22C037 


12840 


LD 


(CSEO.HL 




42E2 4F 


12050 


LO 


C.A 




4384 70 


12850 


LD 


A.L 




42E3 210500 


12060 


LD 


HL.5 


;5 SECTORS PER GRANULE 


4385 84 


12840 


ADD 


A.H 




42E6 3E5B 


1Z070 


LD 


A.MUL14 




43B6 FE00 


12870 


CP 







42E8 EF 


120B0 


RST 


2BH 




4388 281B 


12880 


JR 


Z.NFXDE 




42E7 65 


12070 


LO 


H.L 


t 


43BA 3AD137 


12890 RLP2 


LD 


A.(SSEC) 




42EA 6F 


12100 


LD 


L.A 


;HL EQUAL CONTIGUOUS SECTORS 


438D 3C 


12900 


INC 


A 




42EB 22C037 


12110 


LO 


(CSEO.HL 


ISAVE 


438E 32D13? 


12910 


LD 


(SSEO.A 




42EE El 


12120 


POP 


HL 




4371 FE00 


12920 RSM 


CP 





;MAX SECTORS PER TRACK 


42EF 7E 


12130 


LO 


Ai(HL) 


iFIRST 3-B ITS-STARTING GRANULE 


4393 C24043 


12930 


JP 


NZ.RLP1 








43% 3E00 


12940 


LO 


A>0 




443D 24 


13750 


INC 


H 




4396 320137 


12950 


LD 


(SSEO.A 




443E 14 


13740 


INC 


D . 




439B 3ACF39 


12960 


LD 


A,(STRK) 




443F CB64 


13770 NRECR 


BIT 


4,(HL) 


)Z = KILLED 


439E 3G 


12970 


INC 


A 




4441 CA7344 


137B0 


JP 


ZiNREC 




439F 3ZCF39 


12980 


LO 


(STRK),A 




4444 CB7E 


13790 


BIT 


7,(HL) 


INZ = EXT 4 


43A2 C34D43 


12990 


JP 


RLP1 




4444 C25444 


13800 


JP 


NZiCIN 




43A5 2ABA3A 


13000 NFXOE 


LO 


HL.(WFCB) 




4449 CB76 


13810 


BIT 


4,(HL) 


iNZ = SYS 


43AB 23 


13010 


INC 


HL 




444B C25444 


13820 


JP 


NZ.CIN 




43A9 7E 


13020 


LO 


A>(HL) 




444E CB5E 


13830 


BIT 


3,(HL) 


INZ = 1NV 


43AA FEFF 


13030 


CP 


0FFH 




4450 C25644 


13640 


JP 


NZ.CIN 




43AC CAFC43 


13040 


JP 


Z.CLEND 




4453 C37344 


13850 


JP 


NREC 


1NEXT RECORD 


43AF FEFE 


13050 


CP 


0FEH 




4454 E5 


13860 CIN 


PUSH 


HL 




43B1 2803 


13060 


JR 


Z.NRECD 




4457 D5 


13B70 


PUSH 


DE 




43B3 C3CE42 
43B4 23 


13070 
13080 NRECO 


JP 
INC 


NFXDE1 
HL 




4458 7C 

4459 D662 


13880 
13B90 


LD 
SUB 


A,H . 
62H 


iH IS DIR SEC IN MEMROY 

160 IS GAT,61 IS HIT,A=SECTOR 


43B7 7E 


13090 


LD 


A,(HL) 




445B B5 


13900 


ADD 


A>L 




43BB E607 


13100 


AND 


7 iLAST 3 BITS POINT DIRECTOR SECTOR LESS 2 


445C 4F 


13910 


LO 


L,A 




43BA C602 


13110 


ADD 


A, 2 




4450 E05B7D4S 13920 


LO 


OE,(STDIR) 




43BC 47 


13120 


LO 


B,A 




4441 14 


13930 


INC 







43BD 3A6B32 


13130 


LO 


A>(DIRB) 




4442 5F 


13940 


LD 


E,A 




43C0 80 . 


13140 


ADO 


A>B 




4443 2441 


13950 


LD 


H,61H 


iGAT TABLE 


43C1 E5 


.13150 


PUSH 


HL 




4465 7E 


13960 


LD 


A,(HL) 




43C2 5F 


13140 


LD 


E>A 


: SECTOR 


4464 12 


13970 


LD 


(DE),A 




43C3 3A4932 


13170 


LD 


A,(SORV) 




4467 3400 


13980 


LO 


(HL),0 


iZERO SINCE COPIEO 


43C4 4F 


13160 


LD 


C.A 


;DRIVE NO 


4469 Dl 


13990 


POP 


DE 




43C7 210030 


13190 


LD 


HL, BUFFER 




444A El 


14000 


POP 


HL 




43CA 3A6532 


13200 


LO 


A,(TRK) . 




446B 012000 


14010 


LD 


BC32 


fCOPY FILE TO NEU BUF 


43CD 00 


13210 DBL5 


NOP 






446E ED80 


14020 


LOIR 






43CE 57 


13220 


LD 


O.A 




4470 C37A44 


14030 


JP , 


CIE 




43CF CD7042 


13Z30 


CALL 


00DI5K 




4473 012000 


14040 NREC 


LD 


BC32 




4302 C0 


13240 


RET 


NZ 




4476 09 


14050 


AOD 


HL,BC 




4303 El 


13250 


POP 


HL 




4477 E8 


14060 


EX 


DE.HL 




4304 7E 


13260 


LO 


Ai(HL) JOINTS TO NEXT DIRECTORY EXTENT 


4478 09 


14070 


ADD 


HL.BC 




43D5 E6E0 


13270 


AND 


224 ;1ST 3 BITS POINT TO DIRECTOR RECORD 


4479 EB 


14080 


EX 


DE.HL 




4307 07 


13280 


RLCA 


;EG 


i. 1010000 


447A 3A5F3Z 


14090 C1E 


LD 


A.IEODR) 




43DB 07 


13290 


RLCA 






447D BC 


14100 


CP 


H 


•■■ 


4309 07 


13300 


RLCA 




iBECOMES 0000101 


447E 2803 


14110 


JR 


Z.NSRTO 




43DA 4F 


13310 


LD 


C>A 




4480 C33F44 


14120 


JP 


NRECR 




43DB 1E20 


13320 


LO 


£,32 




4483 210062 


14130 NSRTD 


LD 


HL.6200H 




43DD 3E5A 


13330 


LD 


A.MULB 




4486 CB44 


14140 NRECR1 


BIT 


4,(HL) 


iZ = KILLED - BEGINING OF SORT 


430F EF 


13340 


RST 


Z8H 


iFIND DIRECTOR RECORD 


4468 CABD44 


14150 


JP 


Z.NREC1 




43E0 5F 


13350 


LD 


E,A 




448B CB7E 


14160 


BIT 


?,<HL) 


iNZ = EXT ' 


43E1 1400 


13360 


LD 


0,0 




44BD C2BD44 


14170 


JP 


NZ,NREC1 




43E3 210030 


13370 


LD 


HL.BUFFER 




4490 CB74 


14180 


BIT 


6,(HL) 


;NZ = SYS 


43E4 19 


13380 


ADD 


HL.DE 




4492 C2BD44 


14190 


JP 


NZ,NREC1 




43E7 U4A3A 


13390 


LD 


DE.MFCB1 




4495 CB5E 


14200 


BIT 


3,(HL) 


iNZ = INV 


43EA 012000 


13400 


LD 


BC32 




4497 CZBD44 


14210 


JP 


NZ.NREC1 




43E0 EDB0 


13410 


LOIR 






449A E5 


14220 


PUSH 


HL 


iFILE IS VALID 


43EF 214A3A 


13420 


LD 


HL.HFCB1 




449B 010500 


14230 


LD 


BC5 




43F2 111500 


13430 


LD 


DE.15H 


il BYTE BEFOR 1ST EXTENT 


449E 09 


14240 


ADD 


HL,BC 


iHL POINTS TO FILE NAME 


43F5 19 


13440 


ADO 


HL,DE 




449F 060B 


14250 


LD 


B,ll 




43F4 22BA3A 


13450 


LD 


(WFCB).HL 


iSTORE IN MY POINTER 


44A1 116245 


14260 


LO 


DE.FBA+5 


;0E POINTS TO OLD FILE NAME 


43F9 C3A543 


'13460 


JP 


NFXDE 




44A4 1A 


14270 LP2U 


LD 


A,IDE) 




43FC 114A3A 


13470 CLENO 


LD 


0E.FCB2 




44A5 BE 


14280 


CP 


(HL) 




43FF 3E3C 


13480 


LD 


AiCLOSE 


; CLOSE FILE 


44A6 3B14 


14290 


JR 


CNLTO 


iM=NEG IF A-(HL)= <-> THEN JUMP 


4401 EF 


13490 


RST 


2BH 




44AB 280E 


14300 


JR 


Z.NLP1 




4402 110000 


13500 


LO 


DE,0 


iSET SECTOR COUNT TO 


44AA 012000 


14310 


LO 


BC32 




4405 ED53C539 13510 


LD 


(COUNT). DE 




44A0 El 


14320 


POP 


HL 




4409 3E03 


13520 


LD 


A>3 




44AE 227F45 


14330 


LD 


(FPIH),HL 




440B 322743 


13530 


LD 


(CSM2),A 




44B1 115045 


14340 


LD 


DE.FBA 




440E C9 


13540 


RET 




;END OF COPY FILE 


44B4 EDB0 


14350 


LDIR 




ITRANSFER FILE TO FBA 


440F 211F41 


13550 SORT 


LD 


HL.DIRBUFU1FH iRESET BYTE IF, IN HIT TABLE »»»»»* 


4466 1809 


14360 


JR 


C1E1 




4412 3400 


13560 


LD 


(HL),0 ; 


IT'S UH IN NONSTANDARD FORMAT *»»»#« 


44B8 13 


14370 NLP1 


INC 


DE 




4414 210040 


13570 


LD 


HL.01RBUF 


BEGINNING OF SORT 


44B9 23 


14380 


INC 


HL 




4417 E05B7D45 135B0 


LO 


OE.ISTDIR) 




44BA 10E8 


14390 


DJNZ 


LP2U 




441B 3E00 


13590 LP1W 


LD 


A>0 


{BEGINNING OF SORT 


44BC El 


14400 NLTO 


POP 


HL - 




4410 12 


13600 


LD 


(OEM 




44BD 012000 


14410 NREC1 


LD 


BC32 




441E 23 


13610 


INC 


HL 




44C0 09 


14420 


ADD 


HLiBC 




441F 13 


13620 


INC 


DE 


, 


44C1 3A5F32 


14430 CIE1 


LD 


A,(EDDR) 




4420 3A5F32 


13630 


LD 


A.(EOOR) 




44C4 BC 


14440 


CP 


H 




4423 BC 


13640 


CP 


H 




44C5 2803 


14450 


JR 


Z,CFND 




4424 C21B44 


13650 


JP 


NZ.LP1U 




44C7 C36644 


14460 


JP 


NRECR 1 




4427 0620 


13440 


LD 


8,32 




44CA 2A7D45 


14470 CFND 


LD 


HLi(STDIR) 


;N0 PUT FILE SOMEPLACE 


4429 215D45 


13670 


LD 


HL.FBA 




44C0 24 


14460 


INC 


H 


;HIT TABLED 


442C 34FF 


13480 LP1X 


LD 


(HL),0FFH 




44CE 54 


14490 


i n 


D,H 




442E 23 


13490 


INC 


HL 




44CF 14 


14500 


INC 


D 


iEND OF HIT 


442F 10FB 


13700 


DJNZ 


LP1X 




44D0 3E00 


14510 TG 


LD 


a, a 


;0 IS EMPTY 1 


4431 010001 


13710 


LD 


BC254 




44D2 BE 


14520 


CP 


(HL) 




4434 210040 


13720 


LO 


HL,DIRBUF 




4403 ZB0C 


14530 


JR 


Z,ZFH 


;ZERO FOUND HERE 


4437 ED5B7D45 13730 


LD 


DE.(STDIR) 




4405 012000 


14540 


LD 


BC20H 




443B EO80 


13740 


LOIR 






44DB 09 


14550 


ADD 


HL.BC 





m 



12 



44DA 
4408 
"• 44D0 
44DE 
44DF 
44E1 
44E2 
44E5 
44E6 
44E8 
44E7 
44EA 
44EC 
44E0 
44EF 
44F0 
44F3 
44F4 
44F6 
44F6 
44F7 
44FA 
44FC 
44FD 
44FE 
4501 
4502 
4505 
4507 
4507 
450C 
450E 
450F 
4511 
4514 
4516 
451? 
4518 
451 C 
451F 
4520 
4522 
4523 
4525 
4529 
452C 
452D 
452E 
452F 
4530 
4533 
4534 
4537 
4538 
453B 
453C 
453F 
4540 
4543 
4544 
4547 
4548 
454B 
454D 
454E 
4S4F 
4550 
4552 
4554 
4556 
4557 
4S58 
45SA 



2002 
0002 
6000 
0001 
34DE 



7C 14540 

BA 14570 

20F3 14560 

25 14590 

2C 14600 

18EF 14610 

EB 14420 ZFH 
2A7F45 14630 

7C 14640 

D662 14650 

85 14660 

6F 14670 

2661 14680 

7E 14670 

3600 14700 

12 14710 
2A7045 14720 

7B 14730 

E61F 14740 

C602 14750 

47 14760 

7B 14770 

E6E0 14780 

4F 14790 

0? 14600 

115045 14810 

EB 14820 

012000 14630 

EDB0 14840 

0620 14850 

215045 14B60 

'36FF 14870 LP2X 

23 14860 

10FB 14890 

2A7F45 14900 

3600 14910 

210061 14720 

3E00 14930 CNHE 

BE 14940 

C2S344 14950 

23 14760 

3E62 14770 

8C 14780 

20F4 14790 
ED5B7D45 15000 

210060 15010 

1A 15023 T08TS 

77 15030 

23 15040 

13 15050 

3A5F32 15060 

BC 15070 „ 

C22C45 15080 

C? 15090 

3A6032 15100 URITED 

47 15110 

3A4932 15120 

4F 15130 

3A4832 15140 

5F 15150 

3A4A32 15160 

57 15170 

210060 15180 

3E34 15190 NSOFDU 

EF 15200 

7B 15210 

3C 15220 

FE00 15230 EODFW 

2002 15240 

3E00 15250 

5F 15260 IAU 

24 15270 

10F1 15280 

C3F835 15290 

. 15300 FBA 
15310 STD1R 
15320 FP1H 
15330 

1S340 DIRBUF 
15350 
TOTAL ERRORS 



LD 

CP 

JR 

DEC 

INC 

JR 

EX 

LD 

LD 

sue 

ADD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

AND 

ADO 

LD 

LD 

AND 

LD 

ADO 

LD 

EX 

LD 

LOIR 

LD 

LD 

LD 

INC 

DJNZ 

LO 

LD 

LO 

LD 

CP 

JP 

INC 

LD 

CP 

JR 

LO 

LD 

LD 

LD 

INC 

INC 

LO 

CP 

JP 

RET 

LD 

LO 

LD 

LD 

LD 

LD 

LD 

LO 

LD 

LD 

RST 

LD 

INC 

CP 

JR 

LD 

LO 

INC 

DJNZ 

JP 

DEF5 

DEFS 

DEFS 

ORG 

DEFS 

END 



A.H 

D 

NZ.TG 

H 

L 

TG 

OErHL 

HL.(FPIH) 

A>H 

62H 

A.L 

L>A 

H.61H 

A.(HL) 

(HL),0 

(DE).A 

HL,(STDIR) 

A,E 

1FH 

A.Z 

B>A 

AiE 

0E0H 

CiA 

HL.BC 

DEiFBA 

DE.HL 

BC.32 

B>32 

HL.FBA 

(HD.0FFH 

HL 

LP2X 

HL.(FPIH) 

(HL)il 

HL.6100H 

A>0 

(HL) 

NZ.NSRTD 

a 

A.62H 

H 

NZ.CNHE 

DE.(STOIR) 

HL.DIRBUF 

Ai(DE) 

(HL)iA 

HL 

DE 

A,(EOOR] 

H 

NZ.TDBTS 



iTRT AGAIN 



iTRY AGAIN 

iDE NOW POINTS TO EMPTY TABLE 

iH IS OIR SEC IN MEMROY 

i60 IS GAT.61 IS HIT,A=SECT0R 



SHIT TABLE 

iNEW HIT NOW CONTAINS PROPER ENTRY 
iSEE PAGE 202 TECH HANUAL 



iCHECK NEXT HIT ENTRY 



! TRANSFER DIRECTORY BACK TO START 



A, (LOIRS) 

B>A 

A.(SDRV) 

C,A 

A.(OIRB) 

EiA 

A, (DIRT) 

D.A 

HL.DIRBUF 

A.URSSC 

28H 

AiE 

A 



NZ.1AU 

A>0 

E.A 

H 

NSOFDU 

BODIR 

32 

2 

2 

6000H 

1 

START 



!ENO OF SORT 
iNUMBER OF DIR SEC'S - WRITE DIRECTORY 

ISOURCE DRIVE 

(START OF OIR SEC'S 

iDIR TRACK 



WRITE SECTOR 



[RETURN FROM RIGHT 



IDIRECTORY BUFFER 



AFC 3644 

BG1 3B80 

BUFSAV 426C 

CB1B 338A 

CBAM 32F8 

CFLT 3D8A 

CKBRKC 006A 

CMNDR 0019 

CONCP 347D 

COPYQ 39C7 



B2 315B 
BQ01R 35F8 



CAFF 
CBA 



33CF 
33SF 



CSH2 
08L3 
PIRB 



4327 
391D 
3268 



DIRECT 3BCA 

D0D1SK 4270 

ENTER 3243 

EODFW 4550 

EXITQ 399A 

FCB2 3A6A 

FNOM 3905 

FOUND 39B5 

FRE01R 4259 

FREEM3 3EDC 

FRLP3 4232 

GHT1 360A 

HIGH 0064 

KEY 0001 

LENGTH 39D3 

LP1W 441B 



CBFA1 33E7 

CFNO 44CA 

CKDRV 0021 

CNPARE 388C 

CONER 34AE 

COUNT 39C5 

CT 326B 

DBL4 4347 

DIRBUF 6000 

OIRT 326A 

DSP 0002 

ENTER1 3CF8 

EODR 325F 



B3 3A2D 

BSFCH 42B7 

CAFLP1 33AB 

CBAA 3348 

CBFA2 33F7 

CIE 447A 

CLEND 43FC 

CNHE 4517 

C0NF1 344A 

CON 3345 



BCOPY 4342 

BUFFER 3000 

CATM 3CAB 

CBAAA 334E 

CBFA3 33F0 

CIE1 44C1 

CLOSE H3C 

CNT1 3882 

C0NF2 344D 



OATE 
0BL5 



3A23 
43CD 



CSEC 
DBL1 
DD1 



EXT 
FERR 



394C 
38A2 



FNPL1 3C7B 

FPIH 457F 

FREE 30ZC 

FRESET 4208 

FSPEC 004E 

GTDCT 0051 

IA 3SE9 

KEYIN 0009 



OIRDNE 385E 

DM4 005E 

OSPLY 000A 

E0B1 363A 

ERR 3151 

EXT1AB 397E 

FIL 3A3E 

FNPL2 3C67 

FRCNT 3D42 

FREEH 3E3A 

FRESPC 4244 

FSTD 3CA7 

HEX14 0043 

IAW 4556 



39C0 
37C0 
3217 



D1REC1 3BC0 
DIV8 0050 



ENDQ 
E0B2 



3654 
374E 



LTF 
MSEC 
NAME 
NB5 



30A1 
3266 
3A10 
3D9B 



LK1 
LP1X 



388A 

44ZC 



MFCB1 3A4A 
MSEC1 3804 



LDIR 

LK2 

LP2W 



3261 
3805 
44A4 



ERROR 001A 
F1S 3D40 
FN 39EA 
FNPL3 3C79 
FRDR1 425F 
FREEM1 41B7 
FRLP1 420B 
81 3516 
0062 
003A 



BEEP 343E 

BUFFR1 3A8C 

CB1A 337D 

CBAHL 3352 

CBQM 329B 

CIN 4456 

CLROUT 421C 

COMF1 3BA2 

CONFGR 3478 

CSM1 4316 

DBL2 3B1D 

DIR 3A06 

DIREC2 3BD9 

DODIR 0022 

ENDQ1 366D 

EOOF 35E2 



EXIT 
FBA 



0016 
455D 



HEX6 
INIT 



NEXTZA 380E 

NFXDE1 42CE 

NLTO 44BC 

NOTSM 3BAE 

NRECR1 4486 

NXT 3835 

NXTA1 38E4 

0K1DIR 3015 

PFILEN 3354 



NAP 
NCBF 



4257 
364C 



MNSEC 3267 
MTRK 3262 



NFHFQ 3410 
NL 393E 



NB0 
NDS 



3D79 
35BC 



NMAT 
NREC 
NSEC 
NXT1 
OKI 



39DE 
4473 
3803 
3838 
3812 



NFOUND 39S5 
NL1 3934 



NMP 



421A 



NREC1 44BD 
NSOFD 35D0 



PRINT 

QUIT 

READ 

RSM 

SEC 

SORT 

STRK 



000E 
3997 
0043 
4391 
3264 
440F 
39CF 



TITLE 315B 

VER 004? 

UMES1 3283 

ZFH 44E1 



0K1DNE 3C9B 

PGPLH 357A 

PRNT 3844 

RAMDIR 0023 

REMOV 003? 

SBCH 35BE 

SECCYL 426E 

SOUNO 0068 

SYSRES 3100 

TOTADD 4241 

WEOF 004A 

WMES2 3295 



NXT2 
0K1B 
OPEN 



3BF0 
3703 
003B 



PL1CAF 33E0 

PRT 0006 

ROIR 37BE 

RETDD 42AC 

SOI 3200 

SF 38CA 

SSEC 39D1 

SYSRS1 3112 

TOTSPC 4229 

UFCB 3A8A 

WRITE 004B 



LDIR1 3E33 
LKRC 3826 
LP2X 450C 
MNSEC1 3906 
MUL16 005B 
NB1 3080 
NEOD 42A1 
NFRDR 4245 
NUA 3929 
NODIR 3125 

NRECD 4384 

NSOFDW 454B 

NXT3 3948 

0K1BUF 3D14 

PETR 3740 

POSN 0042 

0DIR1 346B 

RDSEC 0031 

RLP1 434D 

SORV 324? 

SFLAG 3243 

START 34DE 

TDBTS 452C 

TRK 3245 

WHERE 341E 

WRITEO 4536 



FNDIR 313F 

FOKFC 337? 

FREBUF 3E35 

FREEM2 3E3C 

FRLP2 424D 

GETKEY 3442 

HEXDEC 0041 

KBD 0006 

LOIRS 3240 



LOF 

LPA 

HP 

MULS 

NB2 



0040 
34F8 
4216 
005A 
3067 



NEXTZ 3BDC 

NFXDE 43A5 

NLP1 4488 

NOLOAD 350E 

NRECR 443F 

NSRTO 4463 

NXT3A 3747 

0K1C 3714 

PFCAF 33A1 

PRFREE 3DA4 

0DIRT1 390E 

ROSSC 0055 

RLP£ 43BA 

SEARCH 352F 

SN 310F 

STDIR 457D 

TG 44D0 

VDCTL 000F 

WMES 324C 

WR5SC 0036 



ZAP TO DIS/CMD 
by Jack Decker 

If you hove tried to we DIS/CMD (the alphabetized directory 
program for use under NEWDOS/80 that appears on TAS Public 
Domain Library ditk #008, side B) in a configuration that permit* 
more than four logical drive* ( stt ch at with the RAMDISK program 
from NORTHERN BYTES Volume 7, Number 4 installed, or with Alan 
Johnstone's NEWDOS/80 mods Installed, or under NEWDOS/80 version 
2.9), you have no doubt found that the highest drivespec that 
DIS/CMD allows Is :3. The following one byte change to DIS/CMD 
will permit It to access up to ten drives (numbered - »): 

DIS/CMD, File Relative Sector 1, byte 4A: change 34 to 3A 

This changes a CP 34H instruction to CP 3AH, thus allowing 
up to ten drives to be accessed, which should be adequate under 
any conceivable situation. 
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TRS-BO MODEL I AND SYSTEM SO 

SINGLE/DOUBLE DENSITY 53tf"/B" 

ADAPTER 

Designed and Documented by Maurice Abbott 

66 Alrlie Road, Montmorency, Victoria 3094, Australia 

26th October 1986 

[Editor's note: The printed circuit board layout for this 
article Is not included because, as Mr. Abbott explains, "I have had 
a number of PCB's manufactured to enable borne constructors to 
easily build the doubler. Having outlaid cash to have the PCB's 
made I would like to get my money back before distributing the 
layout. Many hours of work went into the design of this doubler 
over a period of about 18 months... I can supply a PCB, Including 
postage, for $20 Australian. With the exchange rate the way it is, 
that Is a bargain." Since Australian dollars can be bought for 
around 62* at this writing, that would put the cost of the Printed 
Circuit Board at somewhere around $12.40 U.S., which we agree Is 
not a bad price at all. If you wish to order a PCB, send your 
order directly to Mr. Abbott at the address shown above.] 

CONTENTS 

1. Introduction 

2. Address Decoding 

3. Data Address Marks 

4. Circuit Description 

5. Construction 

6. Installation 

7. Parts List 

8. Adjustments 

9. Description of Terminal Posts 

10. Strapping Options 

11. Notes 

Appendix 1 Circuit Diagram 

Appendix 2 PCB artwork. Not included. 

Appendix 3 Component Layout 

DISCLAIMER: No liability is accepted for loss or 
damage resulting from the use of this information. 

1. INTRODUCTION 

I have owned a Model I TRS-80 for a number of years and 
have designed and built a few hardware add-ons to improve my 
system. I would like to upgrade to a more modern computer but 
my economic situation will have to improve before that can occur. 
The hardware construction project I am about to describe will 
enable Model I and SYSTEM 80 single density disk systems to be 
upgraded to double density for less than half the cost of an 
imported American double density adapter (unless you can purchase 
a discarded Model I or SYSTEM 80 equipped with double density 
cheaply). An American adapter currently (June 1986) costs about 
$180 Australian. The adapter described here uses the WD2791 or 
WD2793 floppy disk controller (FDC), the latest and third generation, 
Western Digital single density/double density (SD/DD) disk drive 
controller. The WD2791 or WD2793 Includes within the IC data 
separation and write precompensation for SD/DD, as required, and 
the ability to lnterwork with both 5V and 8" disk drives. 

The adapter PCB plugs into the existing single density 
controller socket and may require a flying lead or two depending 
upon the user requirements. The adapter PCB provides a number of 
switch selectable options to the user or these options may be 
strapped permanently when this flexibility is not required. LED's 
can be provided on the front panel of the expansion interface to 
Indicate to the user if SD or DD has been selected or if a 5V or 
an 8" drive has been selected. 

The adapter PCB uses two disk controller IC's, the original 
WD1771 for SD and a WD2791 or WD2793 for DD and optionally SD. 
Another eight common inexpensive IC's are used to provide the 
decoding and switching between densities and type of drive. 
Circuitry Is also required to enable the two controller IC's to be 
connected in parallel. The IC count is less than other DD adapter 
PCB's, while providing extra facilities. The American adapters use 
the WD1771 and WD1791 disk controllers with additional circuitry to 
provide data separation and write precompensation. 

This Doubler can be built for approximately $45 (Australian) 
excluding the FDC chip. The chip can be purchased from Danever 
Australia Pty. Ltd. by mall order using your credit card for 
approximately 18 - 41 dollars. The price depends on the chip type 
(WD2791 or WD2793) and the quantity required. The WD2793 can 



also be imported directly from B.G. MICRO, P.O. Box 280298, Dallas, 
Texas, United States of America, Phone (214) 271-5546 to use your 
credit card, for about 15 - 20 dollars (Australian, June 1986) 
including duty, in one off quantities. 

At the time of writing, the Doubler has been Installed with 
complete success, in the later version Tandy expansion interface, 
both types of SYSTEM 80 (Video Genie, PMC-80) expansion 
interface, and the LNW expansion Interface for the Model I. The 
doubler has also been used with 40 and 80 track drives and with 
the CPU clock frequency increased by two, again with complete 
success. 

2. ADDRESS DECODING 
The decoding used to select density and type of drive is 
compatible with that used in the LNW 5/8 adapter. As far as I'm 
aware the AEROCOMP and PERCOM doublera use the same decoding 
for density selection. The adapter has been used with NEWDOS/80 
Version 2 and MULTIDOS with satisfactory results. The wait state 
facility provided by the LNW 5/8 Doubler has not been provided In 
this 5/8 Doubler. 

Selection of single density : 

Write F8 or FA or FC or FE Into 37EC. 
FDC command Register address. 

Selection of double density : 

Write F9 or FB or FD or FF Into 37EC. 
FDC command Register address. 

Selection of 5Y* drive : i 

Write CO into 37EE. Bits 0-5 don't care. 
FDC Sector Register address. 

Selection of 8" drive : 

Write 80 Into 37EE. Bits 0-5 don't care. 
FDC Sector Register address. 

When booting the system, SD or DD and 5V or 8" drive are 
selected by either user accessible switches or by permanent straps. 
Hardware backers may prefer to have control of all functions while 
other users may prefer permanent straps. 

The TANDY double density adapter uses different decoding 
(naturally) to select SD or DD and most DOS's provide a driver to 
handle the TANDY doubler. 

3. DATA ADDRESS MARKS 

The FDC provided in the TRS-80 is designed for use with 
soft-sector formatted floppy disks. In this type of disk operation, 
the location of the space occupied by a sector is denoted by 
special data patterns and Identification fields written on the disk 
during the formatting process. The soft sectored format was 
defined by D3M with the Introduction of eight Inch disk drives. A 
variation of this format is used in the TRS-80. The special data 
pattern consists of an index mark, track and sector identification, a 
data address mark (DAM), a sector of data and checksum fields 
(CRC's). There is a gap between each sector to enable the FDC to 
separate the end of one sector from the Identification field of the 
next sector. 

The data address mark was defined by IBM to be one of two 
values, FB to indicate that the sector contains data, or F8 to 
indicate the data in the sector has been deleted. While designing 
the WD1771 FDC, Western Digital allocated an extra two DAM'S (F9 
and FA) by using a spare bit in the write sector command. When 
the WD1791/WD279X was designed, this bit was reclaimed to provide 
additional facilities. Therefore the WD1791/WD279X can only 
generate the FB and F8 DAM's. 

Tandy used DAM's FA and FB to define the dlrectpry sectors 
and non directory sectors respectively when Model I TRSDOS was 
designed. This may have been an unintentional deviation due to an 
error in the WD1771 data sheet that reversed the two- bits 
Identifying the DAM read from the disk. 

Data address marks have caused compatibility problems since 
doublers were Introduced into the Model I. The incompatibility 
problems may occur when attempting to Interchange Model I SD 
disks with a Model III due to the Model III using a WD1793 FDC 
(DAM's FB and F8) and the Model I a WD1771 FDC (DAM's FB and 
FA). 

The latest versions of MULTIDOS, DOSPLUS and LDOS use 
DAM's FB and F8 in both Model I and Model HI and therefore the 
problem described above has been overcome. Model I NEWDOS/80 
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Version 2 will use DAM's F8 and FB If the SYSTEM command 
parameter BN • Y, this should be the normal value used for BN. 
TRSDOS 2.3 use* DAM's FA and FB, and therefore a WD1771 must be 
used with this DOS unless the DOS has been modified (nobody uses 
it anyhow). 

The American magazine 80-MICRO published a hardware article 
in the December 1982 issue describing construction of a Model I 
expansion Interface. The expansion interface disk controller FCB 
consisted of a large board with a smaller extension PCB containing 
the two FDC's and some associated logic. It appears that the 
designer originally produced the board with only a WD1791 and no 
extension PCB. It is my guess that upon firing up the original 
version, the designer was very surprised to find difficulty in 
reading (TRSDOS) SD disks due to the previously discussed DAM 
incompatibility problems. Because the PCB was produced using a 
taped layout and no space was available for the additional FDC, the 
mezzanine extension board was Introduced. Only a small section of 
the PCB layout needed to be rearranged to connect to the 
extension PCB with the additional circuitry. The preceding ramble 
is my own opinion because no valid reason was given in the article 
for the extension PCB. 

Since I have been using the Doubler I have found that Super 
Utility Plus Insists that two FDC'S must be accessible before It will 
configure for DD. SU+ appears to write and read toward both 
FDC's in SD and DD to check the type of Doubler, if any, installed. 
Therefore, if only the WD279X was provided for both SD and DD, 
SU+ would not operate In DD. ^ 

I have never seen an article on how to build a Doubler for 
the Model I in any computer magazines or newsletters, so even 
after all these years, this may still be a first. 

4. CIRCUIT DESCRIPTION 

The Doubler uses a WD1771 (IC1) for SD operation connected 
in parallel with a WD2791 or WD2793 (IC2) for DD and/or SD and 
the associated address decoding to control two fUpflops (IC4) for 
selection of density and type of drive. By inverting the read and 
write data for the WD2793, bus transceiver IC10 enables a WD2793 
to be used in lieu of a WD2791. The WD2793 with a true data bus 
is the commonly used FDC and Is therefore sometimes about half 
the cost of a WD2791 with an inverted data bus. If the WD2793 
can be purchased significantly cheaper than the WD2791, provide 
IC10 to invert the bus for the WD2793. If not, replace IC10 with 
straps and use a WD2791, this is the preferred option. The WD1771 
uses an inverted bus and hence the existing TRS-80 bus circuitry 
that the Doubler must interface to, expects the FDC data I/O to be 
Inverted. 

The chip select input to each FDC is used to enable the FDC 
by connecting or disconnecting the FDC "data leads to and from the 
bus. The STEP, DntC, WG and WD outputs from the FDC to the disk 
drive bus are not controlled by the FDC chip select input and are 
therefore always active. To enable these signals to be switched 
from the selected FDC to the disk drive bus, a quad 2 input 
noninvertlng multiplexer, IC3, is used. The switching function of 
1C3 (pin 1) is controlled by the density selection fllpflop IC4a or 
optionally by a front panel switch during SD operation via NOR 
gates IC8d and IC8c. The WD2791 or WD2793 Is always selected for 
DD operation by IC4a. During SD operation the WD1771 Is selected 
by volts applied at point "B" on the circuit diagram. The WD2791 
or WD2793 Is selected for SD if point "B" is open circuit. 

When the reset switch is operated, density and type of drive 
are selected by IC4a and IC4b being preset by MR* via the boot 
selection switches or permanent straps. It Is possible to boot In 
SD or DD using a 5V or an 8" drive. NEWDOS/80 Version 2 enables 
use of a system disk that Is completely DD format, I.e., the first 
track does not need to be SD (PDRIVE parameter TI-K). 

The DOS manipulates IC4 to switch densities and type of drive 
by writing to the FDC as described in the section on address 
decoding. A number of inverters (IC7) and open collector inverters 
(ICS, IC8), arranged in a "wired or" configuration, are used to 
decode the various data and address conditions to set and reset 
the fUpflops In IC4. 

The WD2791 or WD2793 simplifies the design of a FDC by 
including data separation and write precompensatlon within the 
chip. Cll is used to adjust the centre frequency, R14 the write 
precompensatlon and R15 the read pulse width. The PUMP circuit 
consisting of R13, CIO and Dl is used to inhibit over-responsiveness 
to jitter and to prevent an extremely wide lock-up response by the 
Internal phase-detector. CIO should be O.luF for 8" drives or 
0.22uF for 5V drives or a compromise of O.lSuF If both types of 
drive are being used. 



The INTRQ output from each FDC cannot be connected 
directly together because the WD2791 or WD2793 uses active high 
and low output whereas the WD1771 requires a pullup resistor. This 
is not spelt out clearly in the WD2791 or WD2793 data sheet as a 
variation from the WD1771 and WD1791 FDC's. Inverters IC9e and 
IC9f overcome this Incompatibility. 

Visual indication of SD or DD and 5it" or 8" selection Is 
available via LED's D3 and D2 driven by OR gates IC8b and IC9c. 
D3 'on' indicates DD while 'off Indicates SD . D2 'on' Indicates 8" 
while 'off indicates 5V- 

The type of drive is normally selected via IC4b, however. It Is 
possible to perform this selection from the drive select signal from 
the disk drive bus. An Input via point "C" and IC7a can be used to 
select the type of drive. A low (0 volts) applied to point "C" 
selects 8" drive mode. 

A disk Inhibit switch option is provided to enable the 
keyboard reset switch to act as in LEVEL II rather than initiating a 
boot up. This will only work correctly when a WD2793 Is used, and 
if the WD2793 Is selected, when the reset switch is operated. This 
facility is not available when the WD2791 Is used. 

The TG43* output at point "D" has been provided for drives 
requiring an Indication when the track number is greater than 42. 
A spare wire in the disk drive bus must be utilised If this facility 
is required. NOR gate IC8a generates the TG43* signal at point "D" 
when DD Is selected or If the track number is greater than 42. 

The WD2791 or WD2793 can accept either a 1 or 2 MHz clock, 
however, If operation with eight inch drives is required, a 2 MHz 
clock must be used in lieu of the existing 1 MHz clock. The 
WD279X has an Internal divide by two controlled by the ENMF* FDC 
input. If a 2 MHz clock Is required the divide by two option must 
be used when accessing a 5Jf" drive. 

Single density data separation for the WD1771 has not been 
provided on the adapter PCB. Most TRS-80 users will be using a 
plug-in SD data separator, this separator can be used with the DD 
adapter. The DD adapter is plugged into the exiting FDC socket, 
the SD data separator is plugged into the adapter WD1771 socket 
and the WD1771 is plugged into the SD data separator. The 
SYSTEM 80 has an in-built single density data separator for use 
with the WD1771. This data separator can be utilised in 
conjunction with the adapter PCB via strap h-i and a flying lead 
from point "E" to a RAW DATA connection on the SYSTEM 80 
expansion interface board. The connections associated with SD 
data separation (pins 25, 26 and 27) are connected directly to the 
WD1771 on the adapter PCB, therefore SD operation is unchanged 
with the Doubler installed. The WD279X provides SD data 
separation internally and can be utilised where a Model 1 data 
separator is not available. 

Testpoints 1, 2 and 3 (TP1, TP2, TP3) have been provided to 
enable easy access to connection points used during the initial 
adjustment of the adapter in conjunction with the test link. Refer 
to the adjustment section for details. 

5. CONSTRUCTION 

The double density adapter is built using a 6" x 4" single 
sided PCB. The PCB was designed with the aid of a Computer 
Aided Design (CAD) software package. Updating of the PCB during 
development of the adapter was made easy by the editing facilities 
of the CAD package. The use of a single sided PCB results in a 
larger sized board than if a double sided board had been designed. 
However, a single sided board Is cheaper to manufacture and Is 
easier for the home constructor to handle. The PCB requires the 
drilling of 393 1/32" holes before construction can start. 
Reasonable care must be taken when handling the PCB due to the 
small track width used to enable some of the tracks to pass 
between IC pads. A PCB for the Doubler Is available from the 
author. 

Before commencing construction of the Doubler it is worth 
having a look at the insides of your expansion Interface to 
determine the most ^suitable connection and mounting method for 
the Doubler In your particular box. The board was originally 
designed for my 1978 TRS-80 Model I but will also fit into both 
versions of the SYSTEM 80 expansion Interface and the LNW 
expansion interface. There is a lot of space above the TRS-80 
expansion interface board allowing the Doubler to be plugged 
directly into the existing FDC socket. A SD data separator may 
also be plugged into the Doubler providing that clearance between 
boards is adjusted accordingly during construction. 

The main board in both SYSTEM 80 expansion Interfaces Is 
mounted with only about 20 mm clearance between the top side of 
the board and the case. This makes plugging the Doubler into the 
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the FDC socket difficult because of the height of the crystal and 
some 0.1 uF disc ceramic bypass capacitors mounted on the main 
board. If the crystal Is removed and placed on the other side of 
the main board and the existing bypass capacitors are replaced 
with modern monolithic 0.1 uF ceramic capacitors, the Doubler may 
be plugged into the existing FDC socket. If you do not wish to 
touch your SYSTEM 80 expansion Interface main board, the doubler 
may be connected to the main board using a 40 wire ribbon cable 
and a 40 pin DIL insulation displacement connector. The ribbon 
cable is soldered directly to pads on the under side of the Doubler 
PCB. The multicolour ribbon cable with a very thin clear plastic 
covering is the best type for this application as It allows the wires 
to be easily separated for soldering. Rod Irving, Melbourne, stocks 
this type of cable. The cable should be as short as possible. I 
have not as yet used the doubler with a speed up modification. 

The SYSTEM 80 FDC socket can also pose a problem due to 
some sockets being the type that come up the side of the FDC 
chip. Normal 40 pin IDC or solder type headers will not plug into 
this type of socket because the pins are too short. Where the 
Doubler plugs directly Into the FDC socket, this socket problem can 
be overcome by using long square pins cut from a wire wrap socket 
to provide the Doubler to FDC connection. Where the ribbon cable 
connection option is to be used, a 40 pin wire wrap socket with 
square pins can be pruned to provide a Interface between the 40 
pin DJC DIL header and the main board FDC socket, i.e. insert the 
wire wrap socket into the FDC socket of the main board and then 
insert the DJC header into wire wrap socket. The wire wrap socket 
pins must be long enough to provide a good connection but short 
enough to ensure adequate clearance between the n)C header and 
the expansion Interface case. 

Once you have selected the way the Doubler is to be 
connected to the main board, commence construction of the Doubler 
by inserting all straps. The straps can be bare wire where there Is 
no likelihood of short circuits. Component pigtail offcuts are good 
for this purpose. Where the straps are close together, insulated 
fine stiff single conductor wire should be used. Insert all IC 
sockets, except the WD1TT1 socket, (good quality only) and check 
for correct orientation before soldering. Mount and solder 
resistors, capacitors and diodes, noting that polarities are correct 
where applicable. Insert the trimmer capacitor (Cll) and trlmpots 
(R14, R15) and set according to Appendix 3. 

Install the terminal posts on the upper side of the Doubler. I 
suggest that all terminal posts be provided so that if you change 
your mind later, e.g. due to acquiring an 8" drive at a bargain 
price, it can be pressed into service by a simple strapping change. 
I have found that some stiff component pigtail offcuts make very 
good strapping terminal posts. The posts can be installed using 
1/32 holes (same as for IC's) If pigtail offcuts are used. This is an 
advantage due to the fine tracks used on the Doubler PCB. 

The remaining part of the PCB construction will vary 
depending upon the type of computer and the selected connection 
method. 

1. TRS-80 Model I 

Install the terminal posts on the lower side of the PCB used 
to connect the 40 pin header for plugging Into the existing SD FDC. 
The under side posts must be long enough to ensure the adapter 
PCB clears components on the main expansion interface PCB. 
Install the WD1T71 socket and solder the 40 pin solder connection 
header to pins. Insert the header into a 40 pin socket cJu.Ii.i 
soldering to prevent misalignment of pins due to the application 
heat. Ensure that alignment is accurate before soldering the 
header to the posts. The PCB holes may require enlargement to 
accommodate the posts you are using, however, minimum sized holes 
must be used. 

li. SYSTEM 80 Direct (Socket up side of FDC chip) 

Drill PCB to take posts of wire wrap socket, insert into PCB 
until required length of post protrudes on the lower side of the 
PCB. Solder posts and then cut posts on the upper side of the 
PCB as close as possible to the surface of the PCB. Insert the 
WD1771 FDC socket into the PCB and solder. Take care to ensure 
that the posts protruding on the lower side of the PCB are not 
bent. Refer to an earlier section of this document for changes to 
the main board when using this method. 

ill SYSTEM 80 Extension cable 

Insert the WD1771 FDC socket and solder in place. Decide 
where the Doubler Is to be mounted (at the back is OK) and 
determine the length of 40 wire cable required and cut a piece to 



length. Install the 40 pin D3C header on one end of the length of 
cable. Strip back the thin plastic sheath on the other end of the 
cable about 50 mm. Strip and tin the Individual wires to enable 
the correct wires to be soldered to the PCB pads. After double 
checking the header orientation and wire to pad connection* 
complete the remaining soldering. 

iv. SY STEM 80 ( Direc t) (Normal FDC socket) 

Insert the WD1771 FDC socket into the PCB and solder. A 40 
pin solder connection header Is used to connect the PCB to the 
main board. The header connection tags must be tapered to reduce 
the likelihood of track short circuits occurring. If the solder tag 
has two points, break one off to taper the tag. Insert the header 
Into a 40 pin socket during soldering to prevent mis a l i gnm ent of 
pins due to the application of heat. The space between the header 
and the PCB must be kept to a minimum. 

All Methods 

Depending upon the options selected and the flexibility 
required (refer to strapping option section), insert straps and/or 
prepare sections of rainbow cable to provide switch and LED 
options. Check track side of PCB for cracks and short circuits. 
Mask off the component side of the PCB and apply a coat of 
lacquer to the track side of the board. 

6. INSTALLATION 

Disconnect the power before Inserting or removing IC's or the 
adapter PCB and handle the FDC IC's with care. Check your work 
and then plug the adapter into the expansion Interface, Connect 
switches and LED's as required. If the Doubler Is being Installed in 
a SYSTEM 80 connect the RAW DATA Input to the point designated 
In the terminal post section. Connect the 2 MHz lead if 8" drives 
are to be used. Verify power potentials on each IC socket before 
inserting any IC's. Insert all IC's except the FDC's and check that 
the LED's Indicate the correct response when the reset button is 
operated. Insert the single density FDC into the correct FDC 
socket of the adapter, power up, and check that a single density 
system disk will boot using the WD1771 FDC. 

The WD2791 or WD2793 can now be inserted in the adapter 
and If the necessary Cathode Ray Oscilloscope and frequency 
counter are available, the adapter can be adjusted as per the 
relevant section in this document. If a double density system disk 
Is available, attempt to boot using this disk. Adjust Cll to obtain 
boot-up if it Is not achieved Initially. Proper adjustment will need 
to be performed when the test equipment is available. 

When the adapter has been adjusted, verify all facilities) 
provided and check operation with your software. GOOD LUCK !! 



IC'S 
IC1 
IC2 
IC3 
IC4 
IC5 
IC6 
IC7 
IC8 
IC9 



WD1771 

WD2791 or 2793 

74LS157 

74LS74 

74LS05 

74LS05 

74LS04 

74LS02 

74LS05 



IC10 74LS640 



7. PARTS LIST 



Single density disk controller. 

Single/double density disk controller. 

Quad 2 input multiplexer, nonlnverting. 

Dual D flip flop. 

Hex inverter, open collector. 

Hex Inverter, open collector. 

Hex Inverter. 

Quad two input NOR gate. 

Hex inverter, Open collector. 

Octal transceiver, 3 state, inverting. 



Danever Australia Pty. Ltd. 03 5985622 for WD2791 or WD2793 (a 
significant discount for quantities of 10 2793's Is offered) (This 
note for the benefit of our readers in Australia and New Zealand 
-editor]. 



Resistors 

Rl, R2, R3, R4, R5, 

R6, R7, R8, R9, R10. 

Rll, R12 

R13 

R14 

R15 

R16 



4.7K ohm, 5%. WV. 

4.7K ohm, 5%, KW. 

470 ohm. 5*, 5(W. 

IK ohm, 5%, kW. 

10K Trimpot, horizontal PCB, Cermet. 

50K Trimpot, horizontal PCB, Cermet. 

330 ohm, 5%, XW. 



Capacitors 

CI, C2, C3, C4, C5, C6 0.1 uF Monolithic bypass. 

C7, C8 100 pF ceramic disk. 

C9 47 uF 10 volt electrolytic. 
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CIO 
Cll 



Diodes 

Dl 

D2, D3 (Optional) 

Sockets 
14 pin Da 
16 pin DEL 
20 pin DIL 
40 pin OIL 



0.22 pF ceramic disk or Greencap. 
4.5-60 pP trimmer (Phillips), or Murata 9.8-60 
pF to provide a lower profile when installing 
the doubter In a SYSTEM 80. 



2 MHz 



insert c-d, remove a-b. 



1N914 
Red LED. 



SD/DD ft 5Jf/8" Indicators. 



quantity 6. 

quantity 1. 

quantity 1. Required if WD2T93 used. 

quantity 2. 



Headers 

40 pin DIL, solder connections - quantity 1. 

The System 80 interface may require a 40 wire extension cable if 
the adapter card will not plug directly into the existing 1771 
socket due to lack of space. 

Depending on the type of socket used for the existing FDC a 40 pin 
wire wrap socket with square pins may also be required. If this Is 
the case, the extension cable method of connection will be used 
Refer to construction section. 

Miscellaneous 

Terminal posts several required. 

Printed Circuit Board - quantity 1 (PCB available from the author 

at address shown at start of this article). 
Wire for straps (wire wrap). 
Rainbow ribbon cable for switches 'and LED's. 
40 wire ribbon cable. May be required for SYSTEM 80 
Switches. (Optional). - 

Disk Inhibit - SPST 

Boot SD/DD - SPDT 

Boot 5S(78" - SPDT 

SD 1771/279X - SPST 

8. ADJUSTMENTS 
Write precomnensatlnn: 

(a) Set up for Double Density 5V drive, disconnect the test 
link and power up the system, I.e. set boot switch to DD and 5k/B" 
switch to 5V- 

(b) Insert the test link and observe the pulse width on TP1 
using a Cathode Ray Oscilloscope. 

(c) Adjust the write precompensation trimpot R14 for a pulse 
width of 125-150 (or as specified for your drives) nanoseconds at 
TP1. Remove the test link. 

Data Separator: 

(a) Set up for Double Density 5»T drive, disconnect the test 
link and power up the system, I.e. set boot switch to DD and 5k/8" 
switch to 5V. 

(b) Insert test link and observe pulse width on TP2 using a 
Cathode Ray Oscilloscope. 

(c) Adjust read pulse width trimpot R15 to obtain a pulse 
width of 500 nanoseconds, at TP2. 

(d) Connect a frequency counter to TP3 and adjust trimmer 
Cll to obtain a frequency of 250 KHz. 

(e) Remove test link and set switches normally. 

9. DESCRIPTION OF TERMINAL POSTS 

Testpolnts: ' ~ 

TP1 WD pin 31 of 279X, write precompensation 

TP2 TG43 pin 29 of 279X. data separator. 

TP3 DIRC pin 16 of 279X, centre frequency. 

Posts: 

A. 2 M Hz clock Input for 8" drive applications. 

WD1771 or WD279X selection for single density. 

Selection of S\" or 8" via drive select. 

TG43* to 8" drive via disk drive bus cable. 

Input for RAW DATA when Installed In a SYSTEM 80 

SD/DD LED indicator. 

5lg"/8" LED indicator. 



Selection of 5Jf or 8" drive operation. 

DOS insert e-f, remove e-g. 

Drive select Insert e-g, remove e-f. 

SYSTEM 80 or TRS-80 option. 

TRS-80 Insert h-i. 

SYSTEM 80 remove h-i. 

Boot Density Selection. May be a switch. 

Double Density Insert x-y, remove y-z. 
Single Density Insert y-z, remove x-y. 

i 

Boot Drive Type Selection. May be a switch. 
5 V insert v-w, remove u-v. 

8" Insert u-v, remove v-w. 

Disk Disable. 

Insert j-k If a WD2791 FDC is used or if the facility is not 
required when a WD2793 Is used. 

11. NOTES (Refer to circuit diagram). 
Note 1. 

A 2 MHz clock must be obtained via a flying lead from the 
main expansion Interface PCB when 8" drives are to be used. 
Connect Adapter PCB point "A" to: 

(i) TRS-80 early interface (Buffered cable): Z28 pin 3 
(II) TRS-80 later interface: Z25 pin 3 
(ill) SYSTEM 80 early interface, X-4010: Z8 pin 3 
(iv) SYSTEM 80 later interface, X-4020: Z54 pin 8 or J2 pin 2 
Where only 5V drives are to be used the flying lead from 
point "A" is not required. A 1 MHz clock is used by Inserting strap 
a-b and removing strap c-d. 

Note 2. 

Selection of 5V or 8" drive at power up is determined by the 
boot switch position. By inserting strap e-g and removing e-f 5V 
or 8" can be selected by a flying lead from "C" to the drive select 
signals. The 5*/8 switch and/or the 5)(/8 flipflop manipulated by 
the DOS are not used with the above straps. Normally type of 
drive is selected via the. DOS. 

Note 3. 

TG43 is provided for use with 8" drives If required. A spare 
wire in the disk drive bus cable Is used to connect this signal to 
the 8" drive(s). 

Note 4. 

SI closed selects the WD1771 for SD operation and the 
WD279X for DD. SI open selects the WD279X for both SD and DD 
operation. A strap can be substituted to always select the WD1771 
for SD. 

Note 5. 

A single density external data separator for the TRS-80 
WD1771 is provided. If required, by plugging the existing SD data 
separator Into the conversion card WD1771 socket. The WD1771 
would be required when reading a single density disk of another 
user and the data address marks cannot be read by the WD2791 or 
WD2793. 

The SYSTEM 80 has a built in SD data separator and this may 
be utilised by removing strap h-1 on the adapter PCB and 
connecting a flying lead from "E" to Zll pin 13 (X-4010) or Z58 pin 
2 / Jl pin 2 (X-4020) of the expansion Interface. This connection 
provides an alternative path for RAW DATA to the WD279X. 
bypassing the SYSTEM 80 SD data separator. 

The WD279X contains built-in data separators and write 
precompensation for both SD and DD operation. It may therefore 
be possible to get by without a data separator for the WD1771 in 
the TRS 80. 



10. STRAPPING OPTIONS 



Selection of 1 or 2 MHz clock: 
1 MHz Insert a-b, 



remove c-d. 
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TRSPRE - A TRS-80 BASIC PRE-PROCESSOR 

by GU Spencer 

Box 300, Spit Junction, New South Wales 2088, AUSTRALIA 

Phone: (02) 969-7060 (IDDD 011+61+2+969-7060) / Ham Radio; VK2JK 

Adapted for the TRS-80 from: "A BASIC Preprocessor" by 
James L. Shearer (Microsystems Volume 5, Number 5 - May, 1984). 

BASIC programs are hard to maintain because of the 
Inherently poor structure, the GOTOs and OOSUBs, and the remarks 
and white space that slow performance and use up memory. Also, 
the incessant line numbers clutter up the code and are tough to 
type. 

The "TRSPRE" preprocessor overcomes most of these 
shortcomings. The BASIC source program can be written without 
line numbers, using your favorite editor such as your word 
processor or text editor. As TRSPRE is currently written, your text 
editor must be able to generate a caret, """, ASCII 94, as a spec 
character. The original version (not written with TRS-80 BASIC In 
mind) used "®" for this spec char, but this conflicts with PRINTS, 
etc. In TRS80 BASIC. When writing your BASIC source, use 
alphanumeric labels ( example: "branchl ) for GOTO, GOSUB, and 
other branching statements. 

When you run the preprocessor (TRSPRE), it strips away the 
REM statements and unnecessary white space, Inserts BASIC line 
numbers, substituting the appropriate ones for labels, and produces 
a file of compact interpreter-readable code. 

The syntactical requirements for this preprocessor are few. 
The BASIC source code must have the correct syntax according to 
the requirements your BASIC version. The preprocessor, TRSPRE, 
does no syntax checking. Line numbers must NOT be used. Where 
GOTO, GOSUB and other branching statements Indicate the need for 
a line number, replace it with a label named in a manner to help 
clarify your code. The labels are 8-character strings whose first 
character must be the caret, """, and whose subsequent characters 
may be letters, numerals, or vlrgules, "/". 

Examples: 



Acceptable 
"PRINT/1 
~EXIT 
"age/ar 



Unacceptable 

*NRITE*4 (# Is illegal character) 
EXIT/6 (no leading ") 
"POSITION/35 (too long) 



Actually, labels longer than 8 characters are allowed, but only 
the first 8 characters are recognised. 

REM statements that are to be skipped by this preprocessor 
must have REM or rem as the FIRST string on the line, i.e. TRSPRE 
will not skip REM statements if they are imbedded within the line. 

Examples: 

REM This is a valid usage of the REM function, 
rem This Is also valid. 
' This Is NOT a valid REM. 

"TEST PRINT"Example of invalid REM":REM Invalid imbedded "REM" 
REM Invalid "REM" as it is preceeded by white space. 

USAGE 

First, compile TRSPRE/C on a C compiler like Alcor's. Result 
will be a compiled runtime file, say, TRSPRE/OBJ. TRSPRE/OBJ can 
be run with a runtime utility like Alcor's RUNC/CMD. Alternatively. 
TRSPRE/OBJ can be optimized and converted to a CMD file to 
operate direct from DOS. 

Second, write your BASIC "source" program as described, being 
sure NOT to use line numbers. Use plenty of white space and 
remarks. They won't slow your program. 

Third, save your program using an extension like /SRC or 
/PRE (anything but /BAS). Suppose your source is named 
SAMPLE/PRE. Run the preprocessor by typing from DOS: 

With object file (TRSPRE/OBJ): 

RUNC TRSPRE SAMPLE/PRE SAMPLE/BAS 
With /CMD file (TRSPRE/CMD): 

TRSPRE SAMPLE/PRE SAMPLE/BAS 

Your source file SAMPLE/PRE will be read, the labels will be 
converted to line numbers, REM and rem and extra white-space 
eliminated, and the resulting BASIC program will be written to disk 
as SAMPLE/BAS. The disk file, SAMPLE/BAS. can now be RUN like 
any other BASIC program and/or SAVEd in tokenlzed format. 



It is also possible to specify the starting line number and the 
line number increment if the default values of 10 and 10 are not 
satisfactory. 

To process a file to give a starting line number of 100 and 
the default line number increment of 10, type: 

[RUNC] TRSPRE SAMPLE/PRE SAMPLE/BAS 100 

To process a file to give a starting line number of SO and a Une 
number increment of 25, type: 

[RUNC] TRSPRE SAMPLE/PRE SAMPLE/BAS 50 25 

The following files are part of this suite of programs: 
TRSPRE/DOC - This document. 
TRSPRE/C - The source file for this program converted for Alcor C 

and the TRS-80 Model HI. 
SAMPLE/PRE - A sample source for this preprocessor. 
SAMPLE/BAS - What you should get when you run SAMPLE/PRE 

through TRSPRE. 

TRSPRE/C 
/* TRSPRE ( TRS-80 BASIC Pre-Processor ) v 1.2-860222 */ 

/• '. 

I This Source written In Alcor's C Language v. 2. 01. 00 I 
I Hacker: Gil Spencer / Box 300 / Spit Jet NSW 2088 AUSTA I 
I Phone: 61 (02) 969-7060 / Has Radio: VK2JK I 
I Environment: I 

I 48k 2dlsk TRS80 Hod III / NEWDOS80(2.0) / FAX80 printerl 
l_ : I V 

/* This source was written in another country, on another C, 
for a different BASIC. It was written on a different 
processor by a guy I never heard of. I don't even under- 
stand half the Source code I 

Yet. thru the angle of C, the whole thing compiled and 
executed "with a ainiaua of fuss" with Alcor C for the 
TRS-80 Mod3. Anazing! First though, MBPRE/C was filtered 
thru FIXCRLF to reaove the *0A (VLF bytes). Next, MBPRE/C 
was filtered thru PRETTY to sake the Source more readable. 
To try It out on your troabone, first, read TRSPRE/DOC. 
Then, compile this file, TRSPRE/C, using the Alcor C 
compiler, CC/CMD, with this command line froa DOS: 

cc trspre (File, "stdio", Bust be available to CC) 
A new file, TRSPRE/OBJ will be written. This is the 
executable P-Code. Now, using the Alcor C runtlae file, 
RUNC/CMD, enter this coaaand line froa DOS: 

rune trspre saaple/pre saaple/bas 5000 10 
where rune - The Alcor C 'runtlae' pga. 

trspre • The target C object file. 

saaple/pre - trspre' 8 target. 

saaple/bas - The new destination file. 

5000 - Starting BASIC line nuaber. 

10 = BASIC line increment. 
The file, saaple/bas, can then RUN on the TRS80 BASIC 
Interpreter and/or SAVEd in token fora. My goodness 1 */ 

/* MBPRE (Acquired froa Sydney Zeta board on 851008) */ 

/* */ 

/* abpre.c Version 1.3 (gs) */ 

/* V 

/* Microsoft Basic pre-processor */ 

/• •/ 

/* by Jaaes Shearer */ 

/• V 

/• froa Mlcrosysteas May, 1984 •/ 

/» "/ 

/in************************************************************/ 

/* ll-Oc-85 Source converted to Alcor C for TRS-80 Mod 3. */ 
/* Label prefix changed froa '•' to '*' to avoid */ 
/* stuables on PRINTt, etc. Version to 1.3 (gs) */ 

/* 6-09-84 Modified to allow user specified starting line */ 
/* nuaber. line nuaber increaent and accepts lower */ 
/* "rea" as being a reaark. Version to 1.2 (kw) */ 



/* 
/» 



3-09-84 Modified to show version nuaber within COM file. */ 
Version nuaber changed to 1.11 (kw) */ 
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/• 31-08-84 Modified to allow TAB characters within the */ 
**-*. /* source file. Version changed to 1,1. (lew) */ 

/* 11-08-84 This prograaae written to compile under C/80 V 
/* compiler obtained froa Microsystems aagazine. */ 

/* Standard I/O file for Alcor C. */ 



♦include "stdlo" 

♦define MAXLEN 255 
♦define MAXLBL 500 



/• Max line length. */ 
/* Room for 500 labels. «/ 



char label [ 9 * MAXLBL ]; /* arrays for labels- •/ 
int labelno[ MAXLBL ]; /* -and their line nuabera. */ 
static int lblcnt =■ 0; 

MAIN( argc, argv ) /* "command line", cf Alcor C book, pg R65.*,' 

Int argc; /* * of "command line" args. */ 

char *argv[ ]; /* array of ptrs to "command line" args. */ 

( 

int length; 

static int fl, f2; 

char llne[ MAXLEN ]; 

char word[ MAXLEN ] ; 

static int llneno, linest, llnelnc; 

IF ( (argc < 3 ) It ( argc > 8 ) ) < 

printf("\nBASIC pre-processor version 1.3 : ll-0c-85\n\n" 

printf( "Usage: TRSPRE srcflle/ext:d outfile/eXt:d " ); 
prlntf( "[1st linel [line inc]\n" ); 
exlt( ); 



IF ( length > 1 M ( strcmp( word, "REM" ) 

aa strcap( word, "rea" ) ) ) 

( 

llneno = llneno + llnelnc; 
wrlteln( line, llneno, f2 ); 



finish) f2 ); 
> /* MAIN */ 

flleopn( fnaae ) /* Open file fnaae for binary read. Return- */ 
char •fnaae; /* -file nuaber. Print err aesg if no file. */ 
( 

int 1; 

i - fopen( fnaae, "r" ); 
IF ( i 1= NULL ) 

RETURN 1; 
ELSE 
< 

prlntf( "Can't open: *s\n", fnaae ); 
exlt( ); 
) 
} /* fileopn •/ 



/• Reads line froa file fl to s. */ 
/* Returns line len (0 if EOF). */ 



> 
fl = fileopn ( argv[ 1 ] ); /* File to be read. 



/•••••••■••••a************************************************/ 

/* First pass. Assign line nos, build label table, drop REM */ 
/* lines. */ 

/•••«*•«***•**»*»*••*••*•*•••••••••••••*•••*•••*********•*■*■*/ 

linest =10; 
llnelnc - 10; 

IF ( argc == 5 ) 

llnelnc =* atoi( argv[ 4 ] ); 

IF ( argc >- 4 ) 

linest - atoi( argv[ 3 ] ); 

llneno - linest - llnelnc; 

WHILE ( ( length = getln( line, MAXLEN, fl ) ) > ) 



getln( s, 11a, fl ) 
Int 11a, fl; 
char s [ ] ; 
{ 

int c, 1; 

1-0; 

*/ DO ( c = getc( fl ) ); /* pass white space */ 
WHILE ( lsspace( c ) ); 

IF ( c != EOF At c != '\n' ) 
{ 

s[ 1++ ] ■= c; 

WHILE ( — lia > 44 ( c=getc< fl ) ) != EOF 
aa c 1= '\n' ) 
s[ 1++ ] ■ c; 
> 
IF ( c ~ '\n' ) 

s[ I** ] => c; 
s[ 1 ] - '\0'; 
RETURN ( 1 ); 
> /* getln */ 



/* Put label froa line, s, and- */ 
/* -line nuaber, n, into arrays. •/ 



{ 



getwrd( word, line ); 

IF ( length > 1 ft*. ( strcap( word, "REM" ) 

aft strcap( word, "rea" ) ) ) 

{ 

llneno = llneno + llnelnc; 
IF ( *line -- •*' ) 

bldlabel( line, llneno ); 



) 



fclose( fl ); 

fl = fileopn ( argv[ 1 ] ); 

IF ( ( f2 - fopen( argv[ 2 ] , "w" ) ) -= NULL ) 
print f( "Can't open: *s\n" , argv[ 2 ] ); 

llneno * linest - llnelnc; 

/««**»«•»**«»»«»*»*«•**********•»»•••»•***«*«»»«**«««»•««»»»«•/ 
/* Second pass. Replace labels with nos, squeeze out unnec- */ 
/* essary white space, write stateaent lines with numbers */ 
/« to outfile. */ 



WHILE ( ( length = getln( line, MAXLEN, fl ) ) > ) 

( 

getwrd( word, line ); 



bldlabeK s, n ) 
Char *s; 
int n; 
( 

IF ( lblcnt <= MAXLBL ); 
{ 

wrdcpy( label + 9 • lblcnt, s ); 
/* liait lbl to 8 chars */ 
label[ 9 * lblcnt + 8 ] = '\0'; 
labelno[ lblcnt ] - n; 
lblcnt = lblcnt +1; 
) 
) /* bldlabel */ 

wrlteln( s, n, f2 ) /• Write line s to outfile f2 Inserting- */ 
int f2, n; /* -line nuaber n. Also replace internal- */ 
char s[ ); /* -labels with appropriate line nuabers. */ 
{ 

int 1, j; 

char t[ MAXLEN 1; 



) /* It's a label if 1st char 



«/ 



IF ( s[ i ] =- 
( 

WHILE ( s[ 1 ] I- ' ' U ■[ i++ ] != '\t' ) /* pass it*/ 

WHILE ( isspace( s[ 1 ) ) ) /* and white space. */ 
++1; 
> 

fprlntf( f2, "*d ", n ); 
WHILE( s[ 1 ] I- '\n' ) 



/* write line nuaber. */ 
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) 



/« write first " •/ 
/* and all In between*/ 

/» then ending " */ 

/» check for label */ 

/* get label into t */ 
/■ move ptr past lbl */ 
/* only 8 char signf »/ 



IF ( 8[ i ] " "" ) 
< 

putc( a[ 1 ], f2 ); 

WHILE ( s[ ++i ] I- "' 
putc( sf I ], f2 ) 

putc( s[ i++ ]. f2 ); 

} 

ELSE IF ( s[ 1 ] — '"' ) 

< 

getwrd ( t, «s[ 1 ] ); 

i - i + strlen( t ); 

t[ 8 ] - '\0'; 

FOR ( J = 0; j <= lblcnt; j++ ) 

IF ( strcmp( t, label + 9 * j ) == ) 
{ /* write line * if Batch 

fprlntf( f2, "Xd ", labelno[ J ] ); 
break; 

} 
IF (j > lblcnt ) /* no Batch. 

{ 

printf( "\n*#### No Batch for label " ); 
printfj "Sis on line Xd\n", t, n ); 
fprintf< f2, "TXs?", t ); 
) 
> 
ELSE 

putc( sf i++ ] , f 2 ) ; /* 'regular' char 



/» check for quotes •/ rem Read about TRSPRE BASIC preprocessor in file TRSPRE/DOC. 



putc( s[ 1 ], f2 ); 
} /« writeln */ 



/« EOL char. */ 



getwrdf t, 8 ) /* Get next word froa s, put it in t. 
char s[ ], t[ ]; /* For our purposes, words start with 



»/ 



Int i, j; 



/* """, or alpha and then alpha, digits, */ 
/■ embedded '/' and opt final type char */ 



1=0; 

IF (sf i ] ~ '"' II isalpha( s[ i ] ) ) 

{ 

++i; 

KHILE< isalphal s| 1 ] ) II isdigit( s[ 1 ] ) 
II s[ i ] === '/' ) 

1++; 
IF ( *[ 1 ] -- 'V II s[ 1 ] == '!' II sT i ] — '*' 
II s[ i ] -= '$' ) 
1++; 
) 
FOR ( j = 0; j <-=i; J++ ) 

t[ J ] = st j ]; 
t[ 1 ] = '\0'; 
) /* getwrd */ 

wrdcpy( s, t ) /• copy next word (see getwrd) froa t to s. */ 
char *s, *t; 

( 

WHILE ( isalpha( *t ) 1 1 isdigit( *t ) 

I I «t == ■*' II *t ~ '/' ) 

{ 

*s = *t; 
S++; 

t++; 



} 



) /* wrdcopy */ 

finish) f2 ) 
int f2; 
{ 

int J; 

fclose( f2 ); 

FOR ( j = 0; j < lblcnt; ++j ) 

printf( "\nX4d X10s", labelnot j 1, label +9 *j ); 

printf( "\n" ); 

exit( ); 
} /» finish */ 

/* End of TRSPRE/C. */ 

REM SAMPLE/PRE -A demo pgw to test TRSPRE BASIC preprocessor. 
REM V 1.1 - 851812. 



REM 

REM I 

REM I 

REM I 

REM I 

REM I 

REM I 

reB 
rea 
res 
rea 
rea 

REM 
go$ 
YN$ 



This file written with Alcor's Blaise Text Editor 
Hacker: Gil Spencer / Box 300 / Spit Jet NSW 2088 AUSTA 

Phone: 61 (02) 969-7060 / Has Radio: VK2JK 
Environment: 
48k 2dlsk TRS80 Mod III / NEWDOS80(2.0) / FAX80 printer 



• >V ^> 



NOTE: There's a flow control logic error in this pga, 
of the kind that often creeps into BASIC pgas due to 
the GOSDBs and GOTOs. The bug isn't easy to find. To 
force the •yaptoa, enter "0" (exit), then "N" (don't 
exit), then "0", (exit). 

Establish strings. 

" « Hit any key to continue » " 

" « Hit 'Y' or •H' ONLY, please » " 



REM fn UC$ - Convert lcalfa to ucalfa ELSE no change. 

deffn UC$(Z$)-chr$(asc(Z$)+32*((asc(ZS)>90) AND(asc(Z$)<123) )) 

rea MAIN. 

GOSUB "start REM SAMPLE/OUT represents what you should 
GOSUB 'body REM get when you filter SAMPLE/PRE through 
GOSUB 'exit REM the BASIC preprocessor, TRSPRE. 
END 

'start els 

FOR X * TO 12 STEP 2 

PRINTt (64"X)+(2*X), "Bello, "; 
PRINT "I'b a sample prograal" 
NEXT X 

PRINTt 960, goS; 
GOSUB "getcap 
RETURN 



to quit ) "; X 



'body PRINT 
PRINT 

INPUT "Enter a nuBber ( 5 thru 100 
IF X - THEN RETURN 

IF ( X < 5 ) OR ( X > 100 ) THEN GOTO "wrong 
Y = X [ 2 
Z = x [ 3 

PRINT "Your nuaber is ", X 
PRINT "Its square is ", Y 
PRINT "Its cube Is ", Z 
prlntt 960, go$; 
GOSUB "getcap 
GOTO "body 

"exit els 
'exitl PRINT 

PRINT "Are you sure you want to Quit ( Y/N ) ?" 

GOSUB 'getcap 

IF Z$ - "Y" THEN RETURN 

IF Z$ = "N" THEN GOTO "body 

PRINT YN$ 

GOTO "exltl 

"wrong PRINT , "« WRONG I »" 
GOTO "body 

"getcap Z$ - inkey$ 

IF Z* « "" THEN GOTO "getcap ELSE Zj = fnUC$( Z$ ) 
RETURN 

REM End of SAMPLE/PRE. 

SAMPLE/BAS 
1000 go$ = " « Hit any key to continue » " 
1010 YN$ - " « Hit 'Y' or 'N' ONLY, please » " 
1020 deffn UC$(Z$)=chr$(asc(Z$)+32*( (asc(Z*)>90) AND(asc(Z 
$)<123))) 

1030 GOSUB 1070 REM SAMPLE/OUT represents what you shou 
Id 

1040 GOSUB 1150 REM get when you filter SAMPLE/PRE thr 
ough 
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1050 


GOSUB 1280 


REM the BASIC preprocessor, 


TRSPRE. 


1060 


END 










1070 


els 










1080 


FOR X - TO 12 STEP 2 








1090 


PRINT* ( 64 


» X ) + { 2 » X ), 


"Hell 


o, "; 




1100 


PRINT ''I'm 


a sample program 1" 








1110 


NEXT X 










1120 PRINT* 960, 


go$; 








1130 


GOSUB 1380 










1140 


RETURN 










1150 


PRINT 










1160 


PRINT 










1170 


INPUT "Enter a number ( 5 thru 


100 - 


to quit ) "; * 


1180 


IF X - THEN RETURN 








1190 


IP ( X < 5 


) OR ( X > 100 ) THEN GOTO 1360 




1200 


Y - X [ 2 










1210 


Z * x [ 3 










1220 


PRINT "Your 


nuaber Is ", X 








1230 


PRINT "Its 


square Is ", Y 








1240 


PRINT "Its 


cube is ", z 








1250 


print* 960. 


go$; 








1260 


GOSUB 1380 










1270 


GOTO 1150 










1280 


els 










1290 


PRINT 










1300 


PRINT "Are 


you sure you want to 


Quit 


( Y/N 


) ?" 


1310 


GOSUB 1380 










1320 


IF Z$ - "Y" 


THEN RETURN 








1330 


IF Z$ - "N" 


THEN GOTO 1150 








1340 PRINT YN$ 










1350 


GOTO 1290 










1360 


PRINT , "« 


WRONG! »" 








1370 


GOTO 1150 










1380 


Z$ '- lnkeyt 










1390 


IF Z$ = "" 


THEN GOTO 1380 ELSE 


Z$ - 


fnUC*( 


Z$ ) 


1400 


RETURN 











ADD EXTERNAL DRIVES TO THE MODEL 4P 
by Art Rasmussen 

Here is a hardware modification for the Model 4P to allow it 
to use two external drives. This Modification is for the latest 
version of the 4P (green screen and clustered arrow keys). The 
main PCB board Modification or revision nuaber will be REV - 
(that Is a dash or minus sign, there is no letter designation). 

Parts needed: 

About 3 feet of 26-30 gauge wire. I used 30 gauge wire 
wrap wire (Radio Shack part nuaber 278-503). 

One 34 position feaale header connector (Radio Shack part 
nuaber 276-1525). 

Three 34 pin feaale card-edge connectors (Radio Shack part 
nuaber 276-1564). 

About 3 feet of flat 34 conductor cable (Alpha part nuaber 
3580/34). 

One extra long (2'-3') drive extender cable— male card-edge 
on one end and one or two feaale (276-1564) card-edge 
connectors on the other. You can get by with only one feaale 
connector at the end if you are using two half -height drives in 
one case. 

About 6 Inches of 1/4" (inner diameter)' tubing. 

Reaove the 4P from its case, 2 screws on either side and 2 
screws under the handle. Reaove the drives and drive case froa 
the 4P. Reaove the screws holding the bottoa metal cover to the 
computer. This contains the aaln PCB. Be careful when removing 
the bottoa cover, there are three connectors and a ground wire 
that are attached to it near the front and they do not lend 
themselves to easy access for reaoval. Reaove the PCB froa the 
bottoa cover. 

Cut, strip the ends, and solder the 30 gauge wire to make 
the following connections: 

On the top side (component side) of the PCB: 

1. Pin 7 of U34 to pin 1 of U77. 

2. Pin 10 of U34 to pin 3 of U77. 



On the bottom side of the PCB: 

1. Pin 2 of U77 to pin 14 of the disk drive header connector. 

2. Pin 4 of U77 to pin 6 of the disk drive header connector. 

Replace the PCB and bottom cover. BE CAREFUL. Radio 
Shack has seen fit to place a stand-off Insulator on the bottoa 
of the aaln chassis which comes very close to the 4P's speaker 
and it is very easy to smash the speaker when attempting to put 
the bottoa cover and its connectors on... I know, I did! 

Now, if you are rich and famous, or at least rich, you may 
want to replace the Tandon drives with ones a little mere 
reliable... that shouldn't be too hard. The Tandon drives have 
trouble at a 6 ms stepping rate on some software, and they won't 
even run at 12 ms. An excellent replacement would be the Teac 
55A (single sided) or the Teac 55B (double sided), (PC'S Limited In 
Austin, Texas has the 55B's for $95.00 apiece... (512) 452-0323). 
Be aware. If you do use the Teac drives the following changes 
are necessary: 

1. You may have to drill some new holes In the drive cover 
to match up with the screw holes in the Teac drives. 

2. You may need to put one or two spacer washers between 
the top of drive cover and the computer so that the computer 
case does not interfere with the disk latch on drive 0. 

3. The positioning of the card-edge connectors on the 
ribbon cable for drive and drive 1 will be different than the 
original cable. 

4. You may need to rewire the power connectors or add an 
extension in order to get the power cable to reach the drive 
connectors since they are in a different position on the Teaca. 

Assuming you are going to use the original Tandons, 
position the new 34 conductor cable next to the old one, making 
sure the stripe on the edge is on the same side. Take the 34 pin 
header connector and attach it to the end of the new cable, (you 
may use the old header if you carefully remove it from the old 
cable). Make sure the pin numbers are in exactly the same 
position as on the old cable. Attach the card-edge connectors 
for drives and 1 at the same positions as on the old cable, 
again make sure that the pin numbers on the connectors are in 
the same positions (you should not use the old card-edge 
connectors if you plan on using double sided internal drives. 
Radio Shack has pulled pin 32 on the connectors which is needed 
for side selection). DO NOT cut the cable off at the end of 
drive 1. 

The drives will now need to be programmed for drive and 
1 operation. On the main drive PCB there are two empty 16 pin 
dip sockets next to the 34 pin card-edge. The socket closest to 
the card-edge is the termination resistor socket, the other one 
is the programmable shunt socket and this is the one needed. On 
drive 0, pin 2 needs to be shunted to pin 15 and pin 8 shunted to 
pin 9 (pins 8 ft 9 are the ones closest to the edge of the PCB). 
On drive 1 pin 3 needs to be shunted to pin 14 and pin 8 to pin 
9. A staple, cut and properly bent, works perfectly as a shunt. 

Attach the cable to the header connector and drives and 
1. Loop the extra cable over the top edge on the rear of the 
computer chassis. Cut the cable so that when the remaining 
card-edge connector is attached it will hang next to and in line 
with the RS-232 port. Make sure it is attached with the pin 
numbers in the same positions as drives and 1. 

Slit the piece of 1/4" hose down one side and slide it over 
the rear edge of the computer housing so that the drive cable 
sits on top of the hose. This will help prevent it from being cut 
by the housing. Now tape the cable in place. Test out the drive 
operation and then reassemble the computer. 

Now you can use the drive extender cable to connect the 
card-edge connector on the rear of the computer to your 
external drives. Double sided operation for all four drives is 
supported. 

Art Rasmussen 
612 West Hlllcrest 
Keene, Texas 76059 
Phone (817) 641-8922 
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REVIEW: SEATRONIC'S SPEEDUP BOARD FOR THE TRS-80 MODEL 4 

by Ichiro Nohara 

3423-1 Itano Ikeda Miyoshi, Tokushima 778, JAPAN 

I am pleased to report on a speedup board that has made my 
TRS-80 Model 4 the fastest machine In the town. 

This March, I purchased a speed-up board from Holland. It's 
really efficient (better than the Holmes sprinter, according to my 
experience). The company name is 'Seatronic' and it costs $129.99 
in U.S. dollars. Their speedup board is small (approximately 2.5 
inches square) and the Z80-H was placed in the middle of the 
board. 

Installing the speedup board is easy, in my case, I finished all 
within two hours (I'm not a technical person). Also, you may use 
120 or 150 nanosecond RAMs (my choice was 100 nanosecond). The 
speedup board offers 4 modes, 2, 4t 5.3 and 8 MHz. The following 
table is the result of simple test with each mode: 



■ode (MHz) 


runtime (sec. ) 


10 ' SPEED TEST 

20 ' 

30 FOR A - TO 10000 

40 PRINT #)470,A; 

50 NEXT 


2 
4 

5.3 
8 


162.0 
81.0 
61.5 
43.0 



How about it... Sounds good ? 

By the way, running at 8 MHz is not easy. In my case, I 
could not read/write disk with the 8MHz mode at first. This kind 
of problem is caused by a FDC problem. Wait timing is different 
with each FDC controller's tolerance. It looks as though the wait 
timing is too short. But, when running NEWDOS/80, it is easy to 
solve the problem. Refer your NEWDOS/80 manual zap 54, and try 
to zap as follows: 

SYS0/SYS,02,C3 change 01 40 A3 to 01 50 A3 

Now, your NEWDOS/80 will boot/read/write with the 8 MHz mode as 
normal. 

Depending on machine tolerance, the above '50' is not always 
efficient. If you still have trouble, change the 50 to 60 (less than 
4F, and you can't access 8 MHz mode; greater than 86, it appears 
to still work but some programs that use rapid RAM fetching, like a 
RAMDISK program, will not work correctly. 

Also, I received a letter from Seatronic, regarding another 
solution to the above problem. The fix to the problem is change 
the timing resistor on FDC controller (on MDX6 board change timing 
resistor R10 from 47K ohm to 100K ohm). I still cannot read/write 
on TRSDOS 6.x or DOSPLUS 4a in the 8 MHz mode, so will try to 
change the resistor soon. 

Finally, my recommendation is that their board is k good buy, 
and their board is well made, easy to install, comes with a good 
manual, and works efficiently. 

Below is the listing for a speed control program for the 
above speedup board, for use with the TRS-80 Model I/III/4. 

Documentation for SP/CMD 

Format: SP XY 

This program will run with line command X and Y. Space 
separation between X and Y is not allowed. X and Y enable 
configuration, parameters for X and Y as follows: 

2,4.5,8: Direct speed change 
B: for Boot 

C: for copyright notice 
?: for Help 

*: for present speed (nod 3/4 only) 
/: speed change with nothing printout 

(2nd parameter only - It's good for BASIC) 

Exaaples: 

SP 25 => speed to 2MHz then 5MHz (no meaning) 

SP * or SP * «> display present speed 

SP 8/ => speed to 8MHz but nothing printout 

SP *4 => show present speed then turn to 4HHz 

SP/ASM - SOURCE CODE FOR SP/CMD 



SpeedupB clock rite thaw prograe »» SP/CMD 
Uork ui th Seatronic's speedup board 

Far TRS80 Model 1/3/4 with NEUOO580 v.2 

release >» 04/08<vl.01 0*/12=Vl.«2 

04/13'Vi.05 04/27=V1.07 
programed by Ichiro Nohara dated 04/08/1984 

3423-1 Itano Ikeda Nlyoshi Tokushiaa 778 JAPAN 
Tel 0883 72 5520 



S200 




ORG 


5200H 




01tt 


as 


EQU 


01CW 




4447 


PRINT 


EQU 


4447H 




00EC 


PORT 


Ettl 


0ECH 




000D 


ENTER 


EQU 


0DH 




000A 


CR 


EQU 


0AH 




0K4 


TAB 


EQU 


1% 




4210 


SPCHECKEOU 


4210H 


ispeed check for Node 13/4 












5200 7E 


; ...... 

START 


LD 


COHand 1 tflt 

A.(HL) 


•pointer 


3201 32E85S 




LD 


(CNDBUFl.A 


iget paraaeter I save it 


5204 23 




INC 


HL 


inext pointer 


5205 7E 




LD 


A>(HL) 


iget next paraaeter 


5204 32E9S5 




LD 


(CMOBUF+DiA 


;save it 


5209 F5 




PUSH 


rout i ns"- -- 
AF 


isave (lag 


520A C0A852 




CALL 


JOBCLS 


iset dany flag 'no job done' 


5200 21EB55 




LD 


HLiCMDBUF 


ilit paraaeter 


5210 C02752 




CALL 


NA1N1 


ikey check I do job 


5213 C44C52 




CALL 


NZiCONNON 


iif no job done then print out 


5214 CDA852 




CALL 


JOBCLS 


Iset daily flag 'no job done' 


5217 21E955 




LD 


HL.CMOBUF+1 


inext paragraph 


521C CD7F52 




CALL 


NUfWRE 


iis it a <CR> ? 


521F CD2752 




CALL 


NA1N1 


ikey check I do job 09a In 


5222 C44C52 




CALL 


NZ.COtHON 


Iif no job dona then print out 


5225 Fl 


RETURN 


POP 


AF 


(restore AF register 


5224 CT 




RET 




ireturn to IMS/BASIC 


5227 7E 


MAIN1 


LD A.(HL) 


lahat is the 1st paragraph 


5228 FE2A 




CP 


'»' 


i » ? 


522A CA0853 




JP 


Z.PRESENT 


isoipresent speed 


52ZD FE42 




CP 


'B' 


i 6? 


522F CA0000 




JP 


Z.0H 


iif so go boot 


5232 FE42 




CP 


'b' 


ialso lover case 


5234 CA0000 




JP 


Z.0H 


i 


5237 FE3F 




CP 


'?' 


i ? for help 


523? 2B5E 




JR 


ZiHELP 


lit so help aessage 


523B FE43 




CP 


'C 


iis C ? 


S23D 2844 




JR 


Z>C0PYRT 


[copyright 


523F FE43 




CP 


'c' 


ialso lover case 


5241 2842 




JR 


ZiCOPYRT 




5243 FEZ0 




CP 


> t 


inull vork nothing but not ERROR 


5245 285B 




JR 


Z.NULL 


ino paragraph! it is O.K. 


5247 CD4052 




CALL 


DONE 


I50i job vas done 


S24A C4S352 




CALL 

„ A mm 


NZiKEY 
■y vas used 1 — 


;if no job then nuieric 










5240 3AEA55 


DONE 


LD 


A. (JOB) 


1 daily set vhen job coaplete 


5250 FEFF 




CP 


0FFH 


iffh is dany 


S252 C? 




RET 




ireturn to caller 


5253 7E 


KEY 


LD A.(HL) 


ilst paragraph 


5254 FE3Z 




CP 


'V 


iis it 2 ? 


5254 2854 




JR 


Z.SET2 


•then set for 2 ihi 


5258 FE34 




CP 


'4' 




525A 2B5D 




JR 


Z.SET4 


iset for 4 ihj 


525C FE35 




CP 


'5' 




52SE 2844 




JR 


Z.SET5 


iset far S ehj 


5240 FE38 




CP 


'8' 




5242 2846 




JR 


Z.SETB 


iset for 8 ihz 


5244 FE2F 




CP 


'/' 


Ino-needi but not error 


5244 C8 




RET 


Z 




5247 21CA55 


ERROR 


LD 


HL.ERRKSG 


■else point to error vessage 


524A 1833 




JR 


DISPLY 


igo display & return 


524C 3AEB55 


COMMON 


LD 


speed to port 
A.(BITSET) 


iget speed value 


524F D3EC 




OUT 


(PORT). A 


iset speed (aodell) 


5271 3AE9SS 




LD 


A.ICMOBUFtl) 


i2nd para.Uust 2nd) 


5274 FE2F 




CP 


'/' 


iis / ? 
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5274 C47A52 

527? c? 

527A 217*55 

5270 1821 

527F 7E 

5260 FE0O 

5282 281E 

52B4 C9 

5285 CDE352 

5288 CC?3S2 

528B CDC901 

52BE 214A53 

5291 1BK 

S2?3 3E31 

52?5 32*254 

529B C? 

52?? CDC901 

527C 211E54 

529F C04744 

52A2 3EFF 

52A4 3ZEASS 

5ZA7 C? 

52A8 3EH 

S2AA 32EAS5 

S2AO C? 



ill not Mchi go print out 
{return to caller 



52AE 
52B0 
5283 
5265 
S2B7 
526? 
52BB 
528E 
52C0 
52C2 
52C4 
52C4 
52C? 
52CB 
S2CD 
52CF 
52D1 
52D4 
52D4 
5208 
52DB 



3E32 

C00C52 

204C 

3E00 

181F 

3E34 

C0OC52 

2(38 

3E40 

1814 

3E35 

C00C52 

2824 

3E80 

180? 

3E38 

CDDC52 

2(12 

3EC0 

32EB55 

C? 



52DC 328055 

520F C0E352 

5ZE2 C9 

52E3 3A5400 

52E4 30 

52E7 C9 

52E8 3A1042 

52EB F4C0 

52ED 1817 

52EF 3A1042 

52F2 E4BF 

52F4 F460 

52F4 18K 

S2F8 3A1(42 

52FB F440 

52F0 E47F 

52FF 1805 

5301 3A1042 

53(4 E43F 

5304 321042 

530? 18CD 

53ft CDE352 

530E 2800 

5310 CD23S3 



CALL NZrNOTECE 
RET 
i speed display 

NOTICE LD HL.SPDHSG 
JR OISPLY 

i check enter key (2nd 

NOHORE LD A.(HL) 
CP 0DH 
JR Z.NULL 
RET 

i-— — • copyright 

COPYRT CALL M10R3 inhich eodel 1 or 3 
CAU ZiM iif iodl then il 
CALL CLS i clear screen 
LD HLiCPYHSG .copyright print routine 
JR DISPLY igo display I return 

HI LD Ai'l' Jit udell 

LD (MOOELX).A iset 1 for print buffer 
RET ; return to caller 



Iprint Clock las change., 
ijo display I return 

para) 

i no more parai. ? 
iif sOi goto null 
; for jobiark set 



i htj p 

HELP CALL as 

LD HL.HELPHSG 

DISPLY CALL PRINT 

NULL LD A.0FFH 

LD (JOB), A 
RET 

j c | ear job buffer — 

JOBCLS LD A.0 

LD (JOB). A 

RET 

i set tor speed 

SETZ LD A. 'V 

CALL SETCNR 

JR NZ.M3SP2 

LD A.0 

JR SETUP 

SET4 LD A. '4' 

CALL SETCHR 

JR NZ.H3SP4 

LD A.40H 

JR SETUP 

SET5 LD A> '5' 

CALL SETCHR 

JR NZ.H3SP5 

LO A.60H 

JR SETUP 

SETS LD A, '8' 

CALL SETCHR 

JR NZ,H3SP8 

LD A.0C0H 

SETUP LO (BITSET)>A 

RET 

i ?--set characters 

SETCHR LD . (SPOBUF).A 

CALL N10R3 

RET 

i lode I 1 or 3 

N10R3 LD A>(54H) 

DEC A 

RET 
i eodel 3 speed set- 



H3SP8 
H3SP5 

M3SP4 

H3SP2 
H3SETOK 



PRESENT 



A.(SPCHECK) 

0C0H 

H3SET0K 

A.(SPCHECK) 

0BFH 

own 

H3SET0K 

A.ISPCHECK) 

40H 

7FH 

N3SET0K 

A.(SPCHECK) 

3FH 

(SPCHECK).A 

SETUP 

— present speed 

CALL H10R3 
JR Z.CANT 
CALL HOU 



LD 

OR 

JR 

LD 

AND 

OR 

JR 

LO 

OR 

AND 

JR 

LO 

AND 

LO 

JR 



ids screen 

! point to help lessage 

iprint it 

inull it is also one of job 

iset daaey as job done 

ireturn to caller 



•clear dauy job flag 
ireturn to caller 



iset 2ihz print 

ierite it I check il or 3 

iif so> 90 iOdel3 routine 

iset 2ihi aith lodell 

iprepare to return 

i4 charcter for butter 

iirite it 

iit iod3 90 node 1 3 routine 

iset 4ihz 

190 save it 

i » 5ihz 

{•rite '5' 

iif iodel3 90 aodel3 routine 

iset to 5iti2 

i 90 save it 

i » Bahz 

iirite '8' 

ielse iodel3 then i3speed8ih2 

iset to Bihz 

isave value of speed 

iand return to caller 



itor character set 
icheck il Or i3 
ireturn to cal ler 



iset byte froi ROM 
icheck it 
ireturn to caller 



ihoi in DOS 
iset 6ahz 
ireturn 

{hoe's in DOS 
iset to 
i Sahz 
isave and setup 

i hoii's in DOS 
iset to 
i 4ihz 
isave and setup 

ihoa's in DOS 
iset 2ihz 

iset OOS's require 



icheck aodel 1 3 

iit lodel 1 can't proceed 

ielse read present speed 



5313 


218655 




LO . 


HL.PRNTMSG 


iand print it out 


5314 


1887 




JR 


DISPLY 


.display t return 


5318 


21B855 


UHAT 


LD 


HL.HOUMSG 


iunknoin spped parameter ?1 


S31B 


1882 




JR 


DISPLY 


id i splay 1 return 


S31D 


21A355 


CANT 


LD 


HL.CANTHSG 


isorry aodel 1 


532( 


C3W52 




JP 


DISPLY 


idisplay I return 










only aod3)- 

; check RAH 


5323 


3A1042 


HOU 


LD 


A.(SPCHECK) 


5324 


FE28 




CP 


28H 


iit it 2 ihz 


5326 


2B0E 




JR 


ZiREAOYZ 


ithen irite Zihz 


532A 


FE48 




CP 


48H 


iis it 4ihz? 


532C 


280E 




JR 


Z.READY4 


ithen write '4' 


532E 


FEA8 




CP 


0A6H 


iis it 5ihz? 


5330 


Z80E 




JR 


Z.READYS 


ithen irite '5' 


5332 


FEE8 




CP 


0ESH 


iis itSihz? 


5334 


280E 




JR 


Z.REA0Y8 


ithen irite '8' 


5334 


18E0 




JR 


UHAT 


{goto error 'UNKNOWN' 

iod3- 

iput 2 on present buffer 


5338 


3E3Z 


READY2 


LD Ai'2' 


533A 


160A 




JR 


READY 


{printout 


533C 


3E34 


READY4 


LD 


A«'4' 


{put 4 on present buffer 


533E 


1804 




JR 


READY 


{printout 


5340 


3E35 


REAOYS 


LO 


Ai'S' 


iput 5 an present buffer 


5342 


1802 




JR 


READY 


{printout 


5344 


3E36 


REA0Y8 


LD 


Ai'8' 


iput 8 an present buffer 


5344 


328F55 


READY 


LD 


(PRNTCHR),A 


isave it 


534? 


C? 




RET 




ireturn to caller 


534A 


0A000A00 


i * 

CPYHSG 


DU CR.CR.CR 




534E 


0A00 










5350 


0AC895C2 




DEFM 


CR.200.149.194. 


Clock rate change 



utility'. l?5,'version 1.1'. 194.170 
5354 434C4F434B2072417445204348414E47 
5344 452075744?4C4?747?C3744572734?4F 
5374 4E20312E31C2AA 

537B 0AC695C2 " DEFM CR.200.14?.1?4, 'Hod 1/3/4, NEUDOS80 1 SpeedupB 
required' >1?4.170 

537F 4D4F4420312F332F342C204E4557444F 
538F 533830Z0Z4Z0S37045454475703BZ072 
53?F 45717S4?724544C2AA 

53A8 0AC89SC2 DEFH CR.200.14?.194.'Created by Ichiro 
Nahara'.l?7.'04/0?/l?84'.l?4.170 
53AC 4372454174454420427?204?434B4?72 
536C 4F204E4F48417241C530342F30392F31 
53CC 3?3834C2AA 

5301 0AC8?5C? DEFH CR.200,14?,201.'Ikeda 
Tokushiaa', 194, 'JAPAN', 203.170 
5305 4?4B4544412020544F467573484?4D41 
C24A4150414ECBAA 

CR>200.14?,235>170 



53E5 
53ED 
S3F1 
53F2 
53F4 
5402 
5404 
540B 
5418 



DEFM 



CR. 200.14?. 1?4. 'Enjoy Model 



ith speed up board'. 198. 170.ENTER 



0AC695E6 

AA 

0ACB95C4 DEFH 

454E6A4F79204D4F44454C20 

3300 HODELX DU 

20774974 DU 

46Z07370454544207570Z0424F417244 

C400AA000D00 

i r — help lessage 

C1434C4F HELPHSG DEFM 193. 'Clock rate utility tor NEUDOS80 »ith 
Seatronic'.39,' 5 SPEEDUPB' 
5422 434B2072417445207574494C49747920 

444F72204E4557444F53383020774974 

482053454174724F4E49432773205350 

454544555038 

0A0AD2B7 DEFH CR. CR, 210.183, 194, 'Fonat: SP XT'. 194.1B7.CR.CR 

C2444F724D41743A205350205B59C28B 

0A0A 

C4504172 DEFM 194.'Paraieter X and Y able to lix/conf igure.'.CR 

414D45744572205620414E4420592041 

424C4520744F204D4978ZF434F4E4449 

477572452E0A 

C4424574 DEFM 194. 'Betieen X-Y.'. 195, 'space separation lill not 

alloied.'.CR 

54?C 7745454E20582D5?2CC37370414345Z0 

54AC 73457041724174494F4E2077494C4C20 

54BC 4E4F7420414C4C4F7745442E0A 

54C9 C44E7540 DEFM 194,'Nuieric allays priority far secure. '1CR1CR 

54CD 4572494320414C77417973207072494F 

540D 7249747920444F72207345437572452E 

54ED 0A0A 



541E 



5432 
5442 
5452 
545B 
545C 
544C 
544E 
5472 
5462 
5492 
549B 
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54EF 50417241 DEFH 'Paraieters 

B<'. TAB. 'Boot', TAB.TAB.'D', TAB, 'Copyright', CR 

54F3 4D6574457Z7320Z0Z04Z3AC44Z4F4F74 

5503 C4C4433AC4434F707772474748740A 

551Z CD3F3AC4 DEFH 205,'?i',TAB,'Help',TAB,TAB,'«=',TAB,'Present 

speed' >CR 

5514 4B454C70C4C42A3AC450724573454E74 

5524 2073706S4S440A 

552D CD2F3AC4 DEFH 205,'/:', TABi'Uithout printout (2nd para. onlyP.CR 

5531 574774484F7574207072494E744F7S74 

5541 20ZB3Z6E44Z070417241ZE4F4E4C772'? 

5551 0A 

555Z C73ZZC34 DEFH 1?9. '2.4,5.6' ' .TAB. 'direct speed def inition' .ENTER 

5554 2C352C383AC44449724543742073704S 

5544 454420444544474E4774494F4E0D 

; s?eti aessage 

5574 B7002020 SPOHSG DU 163.' Set to' .174 
S578 53457420744FC200 

5580 3F00 SPOBUF DU '?' 

5582 4D487A20 DU 'MHz M87.ENTER 

5584 20BB000D00 

5588 87002000 PRNTMSG DU 183.' ' 

55BF 3F00 PRNTCHR DU '?' 

5591 4D4B7AZ0 DU 'MHz Presented M87.ENTER 

5575 50724573454E74454420BB000D00 

I error nessage 

55A3 534F7272 CANTHSG DEFN 'Sorry. I don' .37. 't knoll.' .ENTER 

55A7 772CZ04720444F4E2774204B4E4F77ZE 

55B7 0D 

55BB 53704545 HOUMSG DEFH 'Speed is IMNOUN. '.ENTER 

55BC 4420477320S54E4B4E4FS74E2E0O 

55CA 4D477373 ERRMSG DEFH 'Missins paraieter(s)... sorry'.ENTER 

55CE 474E4720704172414D4S744572287327 

55DE 2E2E2EZ0734F7Z727 I ?0D 

; bu+ ter s — ■ 

55EB 0000 CMDBUF DU 0000 ibuffer for speed para. 

55EA 00 JOB DB 00 ijob da»y buffer 

55EB 00 81TSET DB 00 ifor bitset buffer 
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SYMBOL TABLE 
CLS 01C7 
TAB 00C4 
DONE 5Z4D 
NOMORE 527F 
NULL 52A2 
SETS 52CF 
H3SP5 52EF 
WHAT 5318 
READY5 5340 
HELPHSG 541E 
CANTHSG 55A3 
BITSET 55EB 



end of prosrai- 

END START 



PRINT 4447 

SPCHECK 4210 

KEY 5253 

COPYRT 5285 

JOBCLS 52AB 

SETUP 52D8 

M3SP4 52F8 

CANT 5310 

READYB 5344 

SPDHSG 5574 

HOUHSG 55B8 



PORT 00EC 

START 5200 

ERROR 5247 

HI 5293 

SET2 52AE 

SETCHR 520C 

H3SP2 5301 

HOU 5323 

READY S344 

SPOBUF 5580 

ERRHSG 55CA 



ENTER 000D 
RETURN 5225 
COMMON 524C 
HELP 527? 
SET4 52B7 
N10R3 S2E3 
H3SETOK 5304 
READY2 5338 
CPYMSG 534A 
PRNTMSG 5586 
CMDBUF 55E6 



CR 000A 
MA1N1 5227 
NOTICE 5Z7A 
DISPLY 527F 
SET5 52C4 
M3SP6 52EB 
PRESENT 530B 
REAOY4 533C 
MODELX 5402 
PRNTCHR 55BF 
JOB 55EA 



Computer 
RS232 
RS232 
Video 
Disk Card 
Disk Card 

1 Drive { 



+5 • 4.0A - 20.0 Watts 



+12 • 
-12 • 
+ 12 t 
+12 t 

+5 • 
+5 • 



.1A 
.1A 
l.OA 
.3A 
.4A 
7A 



1.2 Watts 
1.2 Watts 
2.0 Watts 
3.6 Watts 
2.0 Watts 
Watts 



+12 f l.OA - 12.0 Watts 



This totals out to 55.2 Watts for a one drive system. Add a 
second drive to that and add another 19.5 Watts. This would then 
total 70.7 Watts 

This shows clearly that at full power the computer require* 
more than the computer can supply. 

Fortunately, this condition only exists when you are doing 
disk access. This is only an Intermittent operation, so you can 
subtract the 12V supply line values for each of the disk drives 
when they are idle. This will save 24 Watts of power leaving us 
with a total of 47 Watts, well within design limitations of the 
supply. Since disk drives are only rated for intermittent operation, 
we only have heavy current draw while they are active. The 
heaviest draw occurs during a FORMAT operation. You may have 
noticed that your screen "pulses" when formatting. By adding 
another disk drive you increase the drain on the power supply. 

If you checked out the price of a new power supply it may 
also change your thinking somewhat. I know, I had to buy one, not 
a Radio Shack one, they are far too expensive, but from another 
company. You can expect to pay at least 150 dollars. 

If you are presently overtaxing your power supply and 
experiencing nothing, remember that anything can be abused. 
However In due time it may fail. 

The last problem with over loading concerns heat. The 
heavier the load on the power supply, the warmer it will operate. 
Add the increased heat from an additional drives you also have in 
the case and It spells bad news. Integrated circuits are affected 
adversely in two major areas. First is static electricity, second is 
heat. If you are going to load a poorly ventilated Model 4 case, I 
suggest a fan at the very least. You can buy a lot of fans for the 
price of one power supply repair bill. 

Now that you have all this bad news, I have a suggestion. 
Power supplies are very simple to make. If you want to add drives 
to your computer the circuit shown below will more than 
adequately power a drive (single or double sided). As for a disk 
drive case, try to obtain a Hammond case to fit, or make your own 
out Of metal or plexiglass. 

The parts may be bought from your local Radio Shack store, 
or another distributor of electronic parts. I have provided the 
Radio Shack part numbers where applicable. 



Bl 
CI 
C3 
Ql 
Q2 
Tl 



PARTS LIST 

- Bridge Rectifier 4A 100V - RS 276-1171 
ft C2 - Capacitors 1000 uf 3SV - RS 272-1019 
ft C4 - Capacitors .1 uf 50V - RS 272-135 

- Voltage Regulator 7812 - RS 276-1771 

- Voltage Regulator 7805 - RS 276-1770 

- Transformer 12.6 V CT 1.2 A - RS 273-1505 



MODEL 4 POWER SUPPLY 

by Mel Patrick 



The only additional material required would be the necessary 
tools to assemble the supply and a line cord to plug it in. 



(Reprinted from SMUG News, the newsletter of the Surrey 
(British Columbia, Canada) Microprocessors Users Group:] 

I have noticed an ever increasing amount of TRS-80 Model 4 
owners who are installing additional drives inside their computers. 
While I am not going to condone this procedure, there are a few 
facts you should be aware of. 

The normal TRS-80 Model 4 power supply (of which there are 
three different versions), is rated at 65 Watts maximum. The 
electrical formula for calculating the required amount is: 

W = E * I 
Where W=Watts, E*Volts, ^Current. In a simple example, if you had 
a 12 Volt light bulb and it required 1 Amp to work, that would 
translate to W=12*l, or 12 Watts of power required. 

Using the same idea we will move to the Model 4. The power 
supply, as previously mentioned, can supply a continuous 65 Watts. 
Now let's look at what the computer requires. 




I— gg— I— + 5VDC 
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UNDOCUMENTED AND UNTESTED ZAPS 

The following zaps are mostly of spurious origin (translation: 
they were found buried under a pile of papers on the editor's 
desk), and therefore should be considered unreliable until 
thoroughly tested. 

1) Zap to Model 1 Scrlpslt so that initialization character is 
not sent: 

SCRD?SIT/CMD,00,47 from 0A 32 E8 37 AF to 0A 00 00 00 AF 

2) Optional zap to Radio Shack's SuperScripsit Version 1.0 for 
the Model I, The SuperScripsit module PROOF/CTL assumes you 
have three drives as It creates (and later kills) a file named 
MISSPELL/CTL on Drive 2. Further, the file WORDS/CTL (from 
Scrlpslt Dictionary) is supposed to be mounted on Drive 1. This zap 
removes the drive number specifiers from the PROOF/CTL program, 
thereby allowing WORDS/CTL to be mounted on any drive and 
MSSSPELL/CMD to be created on the first available drive. 

PROOF/CTL,11,30 change 4C 3A 32 0D 00 to 4C 0D 00 00 00 
PROOF/CTL.11,67 change 4C 3A 31 0D 00 to 4C 0D 00 00 00 

3) The Microsoft/Radio Shack FORTRAN package does not 
work properly under the Model III version of NEWDOS/80. 
Specifically, the -E switch for L8B/CMD does not work. The 
following corrects this problem and, presumably, resolves other 
problems as well. Using zap 050 (11/09/81) as a guide, it appears 
that address 4313 in TRSDOS became 4479 in NEWDOS, and there is 
no equivalent to TRSDOS address 4315. This zap is for the Model 
m version of FORTRAN only, but NEWDOS Model I zap 053 implies 
that there is not a problem there. 

EDIT/CMD,18,AA change 22 13 43 3E C3 32 15 43 
to 22 79 44 3E C3 00 00 00 

EDIT/CMD,42,7A 

chg 32 15 43 22 19 53 2A 13 43 22 52 78 21 4E 78 22 13 43 
to 00 00 00 22 19 53 2A 79 44 22 52 78 21 4E 78 22 79 44 
F80/CMD,05,BD 

change 32 15 43 2A 13 43 22 Fl 7A 21 ED 7A 22 13 43 
to 00 00 00 2A 79 44 22 Fl 7A 21 ED 7A 22 79 44 

F80/CMD.45.55 change 32 15 43 2A Fl 7A 22 13 43 
to 00 00 00 2A Fl 7A 22 79 44 

L80/CMD,00,08 

change 32 15 43 2A 13 43 22 Al 6F 21 9D 6F 22 13 43 
to 00 00 00 2A 79 44 22 Al 6F 21 9D 6F 22 79 44 

L80/CMD.07.18 

change 32 15 43 2A 01 02 00 59 Al 6F 22 13 43 
to 00 00 00 2A 01 02 00 59 Al 6F 22 79 44 

4) Proposed zaps to Model I/m SuperScripsit version 1.3.0 for 
use with NEWDOS/80 version 2.0 and 2.5. 

a) Disables a call to a TRSDOS routine which returns the 
amount of free space on a diskette and replaces it with code to 
return "lots". Note that this patch merely reports that there is 
always plenty of available disk space, even though this may not be 
the case in fact. The user MUST remain aware of this, as a DISK 
FULL condition may cause a non-recoverable error with the current 
output file. 

SCRn>Srr/CMD,25,El change C9 C5 D5 E5 to C9 3F FF C9 

b) The first patch below installs a "Dffi V text at address 
92CAH, replacing another text not needed by NEWDOS/80. The 
second patch overwrites code to display TRSDOS's directory with a 
DOS call to 4419H using the text installed by the first patch. 
SCR17/CTL,07,9F change 92 1C IF 44 52 49 56 45 

to 92 44 49 52 20 30 0D 45 

SCR17/CTL,00,85 

change E5 32 A8 92 3A 25 01 FE 49 20 0D 3A A8 92 
to E5 32 CE 92 21 CA 92 CD 19 44 C3 1A 8C 92 

c) The first patch below allows the "Display Directory" routine 
to accept drives numbered 0-9 instead of 0-3. The second modifies 
the "Which Drive" prompt similarly. 

SCR17/CTL.00.7A change FE 34 30 to FE 3A 30 
SCR17/CTL,08,31 change 2D 33 29 to 2D 39 29 

d) Further notes: SuperScripsit version 1.3.0 DOES NOT respect 
NEWDOS/80's IflMEM pointer. This will work OK with version 2.5 
because SuperScripsit will keep out of the upper 2K anyway, but 
users with high memory drivers or other routines must be aware of 
this fact. Also, these zaps have not been tested with the 
PROOFREAD function, as this was not available to the zap 
developer. 

5) Apparat issued zap number 83 for zapping the Model I 
SuperScripsit for TRSDOS to enable it to run with Model I 
NEWDOS/80. However, the data in these zaps does not apply to 
SuperScripsit version 1.2.0. To enable this TRSDOS version to run 
under NEWDOS it is necessary to make the following changes. This 



zap is by Jack Bognuda of Queensland, Australia (from Bits & Bytes 

#26). 

SCRIPSIT/CMD.09.1F change C93A 

D9AB 4FCD F04A C021 004D 0123 00CB 1E38 
0104 CB1E 3801 040D 2320 F204 0528 0105 
2105 00CD 6666 0604 CD46 667D 3222 7EAF 
C900 0000 

to C906 

0411 333C 21DC AC1A 7713 D630 FE0A 3003 
0102 005B 2310 F036 8400 0000 0605 CD66 
6606 04CD 4666 7D24 2528 023E FF32 227E 
AFC9 0000 

SCR17/CTL,00,31 

change 69FE 3038 F9FE 3430 F5CD 9E75 0E00 3271 
42CD 1944 3E0F CD33 0021 

to 6932 728D 216E 8DCD 1944 2805 F6C0 CD09 

4418 0644 4952 2030 0D21 

SCR17/CTL,02,A2 change 57 08CB 8F52 
to 57 4450 8D52 

These zaps include provision to enable you to read the 

directory. Although not listed in the text of the menu which 

appears initially on SuperScripsit, if you press "D", the directory 

will come up. 

6) Another set of zaps to Model 111 SuperScripsit, this time 
for version 1.2.3 for use with NEWDOS/80 instead of zap 077 
supplied by Apparat. These zaps will, in case of a "full diskette", 
refrain from attempting to write the file to disk. It will instead 
allow you to select another diskette and try again. Thus, you can 
recover from the error and the file will (hopefully) not be lost. 
This zap is by Kees Walter of Landsmeer, Holland (from Remarks 
#46). 

SCR17/CTL.00.30 

change 69FE 3038 F9FE 3430 F5CD 8975 0E00 3271 
42CD 1944 3E0F CD33 0021 

to 6932 728D 216E 8DCD 1944 2805 F6C0 CD09 

4418 0644 4952 2030 0D21 

SCR17/CTL,02,68 change 2054 5253 444F 
to 204E 4557 444F 

SCRIPSIT/CMD,09,0A change AB47 0EFF 219B 

ACCD 9042 C023 2346 2103 00CD 5166 0604 
CD31 667D 3222 7EAF C900 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 00E5 

to ABC6 3032 2B5B 

F521 275B CD19 44C0 210B 3C06 2536 2D23 
10FB 363E CD49 0000 F121 DCAC 7706 043E 
8477 2310 FC77 CDB2 6806 05CD 5166 0604 
CD31 667D 2425 2802 3EFF 3222 7EAF C944 
4952 2030 2C2F 5139 510D 00E5 

7) Zap to the Model HI version of NEWDOS/80 to make it boot 
automatically in the 4 MHz (high speed) mode on the Model 4. Any 
routine which is controlled by the interrupts (including keyboard 
repeat and cursor blink) will be activated twice as often as normal 
when this zap is applied. The first four bytes of this zap are 
loader control information, and most of the new bytes are loader 
control. The zap modifies the loader control information in 
SYS0/SYS so that a value of 64H is loaded into memory location 
4210H, which the ROM then outputs to port 236 later in the boot 
routine, invoking the 4 MHz clock speed. SYSTEM OPTION BJ MUST 
BE SET TO 2 WHEN T HIS ZAP IS_APPLffiDlll" 

SYS0/SYS,14,B2 change 01 48 A6 51 00 00 00 00 00 00 
to 01 03 10 42 68 01 43 A6 51 00 

8) NEWDOS/80 Model I lock in run-only mode: 

SYS0/SYS,02,7B change BF to 00 



CONTEST ! 

We will give a complete set of our public domain 
library diskettes to anyone who submits a 
PD catalog program that will enable us to easily 
catalog all public domain programs. Must not be 
memory dependent 1 Submissions must be received 
by July 1st, 1987. Send to: TAS, 704 N Pa., 
Lansing, MI, 48906-5319. 
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DISKMAP PRINT PROGRAM 
by Ross Placing 

[Reprinted from SYDTRUG NEWS. P.O. Box 297, Padstow, New 
South Wales 2211. Australia.] 

FOR all of you people who don't want to read a long list of 
file locations here Is a quick ft dirty program that should print out 
a map of a disk similar to this: 



Disk 
Cyl GRAN 

< BOOT SYS >< 

1 < MAPPER TXT >< 

2 < MAPPER TXT >< 

3 < MAPPER TXT X 

4 < MAPPER TXT >< 

5 < >< 



<textltxt> autoo 

GRAN 1 GRAN 2 GRAN 3 
BOOT SYS X >< 

MAPPER TXT >< MAPPBR TXT >< MAPPER TXT 
MAPPER TXT >< MAPPBR TXT X MAPPER TXT 
MAPPER TXT X MAPPBR TXT X MAPPER TXT 
MAPPER TXT >< MAPPER TXT >< 
X >< 



19 < 


X 


X 


>< 


> 


20 < DIR 


SYS X DIR 


SYS X DIR 


SYS X DIR 


SYS > 


21 < 


X 


X 


>< 


> 



and here Is the program listing: 

IB CLEAR15900 

11 DEFDIT A-Z 

12 DIMPO<291,7),R$(7),RR$(300).BI<7) 

13 FORA=0TO7 

14 BI(A)-2[A 

15 NEXTA 

16 CLS 

17 DEFPNGR(BWBAND31) 

18 DEFFNGS(BHNT(B/32) 

19 DEFFNB2(S$)»ASC(MID$(S$,2)) 

20 DEFFNGC(S$)-FNGR(FNB2(S$)) 

21 DBFFNSG(S$)-FNGS(FNB2(S$)) 

22 DEFFNFi(R$.S)-MTO$(R$,21+S*2,2) 

111 DEFFNNR(T$)-FNGC(T*)*8+FNSG(T$)+1 

112 T$=" "+"" 

140 PRINT9256,"Wliich drive ": 

141 FORA-lTOl 

142 K$«INKEY$ 

143 A=LEN(KS)»INSTR(CHR$<B>+"M2345e7" > K$) 

144 NEXTA 

145 DR$-K$ 

146 PRINTKt; 

147 D7DR$-CHR$(13)0RDR$-CHR$(31)THEN14i 

220 DR$-":*+DR$ 

221 CMD*I "+DR$+",M" 

222 0PEN"R",1,"DDVSYS"+DR$ 

223 CLS 

224 PRINTTMSKMAP FOR DOSPLUS, LDOS ft TRSDOS 2.3 disks- Drive 

;RIGHT$(DR$.l) 

225 CO$=CHR*(15) 

226 OF$-CHR$(18) 

227 PPJNTSTRBIG*(64,95); 

228 PRINT*>256,"Readtag directory on Drive ";RIGHT$(DR$,1) 

229 GET1.1 

329 FIELD 1.2B4AS C1*,1AS CL$.3ASD$.8ASNA$.8ASD$,32ASAU$ 

321 GOSUB760 

322 F0RD-9T07 

323 FIELD l,(n*32)ASD$.32ASR$(n) 

324 NEXTn:D?LOF(l)>34THEHDF-34ELSEDF-LOF(l) 

325 F0RA-3TODF 

326 GET1.A 

327 FORB-0TO7 

328 RR$((A-3)«8+l+B)-R$(B) 

329 NEXTB.A 
339 CLOSE 

331 FORA-1T0399 

332 D7LEN(RR$(A))<32THKNGOTO450 

429 B»A 

430 IFASC(RR$(B)»127ANDASC(MID$(RR$(B),6,1))< 64THENB-FNNR(RR$(B 

440 IFASC(RR$(B))>1ANDASC(MID$(RR$(B).6.1))>64THENT$-FNF$(RR*(B),5 

):IFASC(T$)=254THENMID$(RR$(FNNR(T$)).6.11)-MID$(RR$(B).8.11):B» FNN 

R(T$):GOT0439 

459 NEXTA 

451 RR$(300)=" locked out "+STRMG$(16,255) 



452 RR$(0)-STRING$(32,32) 

453 FORA-1T0399 

454 IFLEN(RR$(A))<32THENGOT06Ti 
590 B?ASC(RR$(A))-*rHENGOTO670 
51BIFASC(RR$(A))>127ANIJAS«(1«D»(PJI$(A)A11»<64THENGOTO670 

520 T$-MD)$(RR$(A).6,U) 

521 D?T*<STBJNG$(12.32)THEIIGOTO670 

940 PRINT«256,CBB$(31)"Working on "MjD$(RR$<A),6,ll); 

541 LSET T$-FNF$(RR$(A),1) 

542 A1-ASC(T$) 

543 D?Al<CLtlTHENA2-*NSG(T$)^3-FNGC(T$):GOSUB890ELSE670 

580 LSETT$-FNFJ(RR$(A),2) 

581 A1-ASC(T$) 

582 D?M<CI^lTHENA2-FMSG(rt)dk3+PHGC(T$)K»SOTe^«ELSE879 

619 LSETT$-FNF$(RR${A),3) 

811 A1^ASC(T$) 

612 D?Al<CL+lTHENA2-FMSG(T$)A3-*NGC(T$):GOSOB699ELSE679 

649 LSETTS-FNF$(RR$(A),4) 

641 A1-ASC(T$) 

642 D?A1<CL+1THENA2-FNSG(TS)A3-FNGC(T$):G0SUB699 

679 NEXTA 

671 G0TO1939 

699 PRINTA1;A2;A3"."; 

691 FORAA-0TOA3 

719 P-A2+AA 

711 D?P>GMTHENA1-A1+1*^2— AA.-GOT0719 

739 PO(Al,P)-A 

731 NEXTAA 

732 RETURN 

769 CL-ASC(CL$) 

761 C2-CL 

762 CL-C2+34 

763 DAJL<96TB«NTT^ASC(Mro$(Cl$.9T,l))ELSETT-255 

849 FORA-1TOCL 

841 TN»ASC(lOD$(Cl$Al)) 

842 D7TO<TTTHENTT-TN:NBXTAELSENBXTA 
879 TP-258-TT 

871 A-DISTR(AU$,CHR$(13)) 

872 D?A>9THENOA$-LEFT$(AU$.D(STR(AU$.CHR$(13))-l)ELSEUA$-AO$ 

909 DN$-NA$ 

901 PRDIT»128.*<*DN$"> auto <"UA$">"; 

902 PRDrr*192,CL+l"cyUnders"; 

993 FORA-8T01STEP-1 

994 D?(2[A-1)>TPTHENNEXTAELSEGM-A-1 
959 PRnrrGM+l"grans per cyl"; 

951 FORA-0TOCL 

952 TT-ASC(MID$(C1$,A+1,1)) 

953 PRMTt>320."workin»; on cyl'A; 

954 FORB-0TOGM 

955 D7(TTANDBI(B)) THENPO(A,B)=300 

1010 NEXTB.A 

1011 RETURN 

1939 LPRDrTTAB(19)"Dlsk name <"DN$"> auto <*UA$">" 
1031 LPRMTCOS" Cyl "; 



H 



*";"GRAN"+STR$(A); 



*>";MD»(RR$(PO(A^A)).0.11)! 



1032 FORA-4TOGM 

1033 LPRINTUSING"* 

1034 NEXTA 
1935 LPPJNT 

1036 FORA-OTOCL 

1037 LPRDTTUSING"### "^ 

1038 FORAA-0TOGM 
1939 LPRINTUSDIGV % 
1040 NEXTAA 
1941 LPRJNT 

1132 NEXTA 

1133 LPRDJTOFl 

1134 POKE14312.12 

1135 CLS 

1136 PPJNT9)599,"Press (D) for DOS or any other key for next disk ; 

1137 FORA-1T01 

1138 A$-DJKEY$ 

1139 A-LEN(A$) 
1149 NEXTA 

1141 IFA$-"D - ORA$-"d"THEN CMD"S" 
1239 RUN 

The limitations are that the program will read MULTIDOS, 
DOSPLUS, TRSDOS Model I, LDOS, and any standard DOS (exceptions ^ ) ) ) 
CP/M, MSDOS, NEWDOS 80 DDEN, ETC.). The program has been 
tested with MULTIDOS, LDOS, TRSDOS and DOSPLUS 3.5 diskettes 
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(note you might have to change the access password to '9642' on 
DIR/SYS entry in the directory). 

SYDTRUG NEWS EDITOR'S NOTE: Ross uses DOSPLUS BASIC 
. which has a number of differences to that used with TRSDOS and 

f~~ ■ LOOS. To be specific the following changes should be made if you 
are not using DOSPLUS: 

Line 221 should be deleted 

" 320 should read NEXT B : NEXT A 
" 1010 should read NEXT B : NEXT A 

After looking over Ross's program, I decided to adapt it for 
operation on the Model 4 under TRSDOS 6.x so that I wouldn't have 
to boot LDOS Just to map a diskette. So for those of you who, 
like me, have the advantage of a Mod 4 the following program will 
allow you to map any of the disk types that Ross has stated above. 

This program takes note of the fact that the AUTO feature is 
no longer stored in the GAT sector of /the directory with TRSDOS 
6.x (It is actually stored In BOOT/SYS sector 02 beginning at byte 
20H) and so it checks the version number before trying to find a 
valid AUTO statement. If the version Is 60 to 62 the AUTO 
statement is retrieved from BOOT/SYS rather than from DIR/SYS as 
for other DOS's (this also means that should TRSDOS 6 be raised in 
version from the current 6.2, the test in line I960 should be 
adjusted to account for the change). 

1000 REN *••*******•***•*•••••***•****»*»**«»»»«» 

1010 REN * • 

1020 REN * DISKMAP6/BAS * 

1030 REN * by Ross Placing * 

1040 REN * • 

1050 REN • Adapted and Modified for the Model 4 • 
1060 REN • by Gary Bryce • 

1070 REM * * 

1080 REM •••••••••••**•••*•••*•••••••*••*•*•**•*• 

MM CLEAR 15000 

11M LPRMT CHR$(27);"v66.";: REM Seta FORM Length 
1116 COMP$-CHR$(27)+"Q": REM Seta COMPRESSED Mode 

1120 NORM$-CHR$(27)+"N": REM Seta NORMAL Mode 

1130 DEFINT A-Z 
^- 1140 DIM PO(201,7).R$(7),RR$(485),BI(7) 

1150 FOR A-0 TO 7 
1160 BI(A)-2~A 
1170 NEXT A 
1160 CLS 

1190 DEF FN GR(BMB AND 31) 
1200 DEF FN GS(BHNT(B/32) 
1210 DEF FN B2(S$)-ASC(MID$(S»,2)) 
1220 DEF FN GC(S$)~FN GR(FN B2(S$)) 
1230 DEF FN SG(S$)-FN GS(FN B2(S$)) 
1240 DEF FN F$(R$,S)-Mn>$(R$,21+S*2,2) 
1250 DEF FN NR(T$>FN GC(T*)»8+FN SG(T$)+1 
1260 T*»" "+"■ 

1270 PRJNT • 480,"Wnich drive "; 
1280 FOR A - 1 TO 1 
1290 KEYMt-WKEYI 

1300 A-LEN(KEYIN$)*INSTR(CHR$(B)+"«1234567",KEYIN$) 
1310 NEXT A 
1320 DRVS-KEYMS 
1330 PRINT KEYM*; 
1340 D? DRV*=CHR$(13)OR DRV$-CHRS(31) 

THEN GOTO 1270 
1350 DRV$-":"+DRV$ 
1360 OPEN "R",l."Dni/SYS"+DRV$ 
1370 CLS 

1380 PRINT 0) 20,"*************** DISKMAP •»»»•»••*••••»•■ 
1390 PRINT • 95,"for TRSDOS 6, LDOS and compatible disks"; 
1400 PRBJT " - Drive ";RIGHT$(DRV$,1) 
1410 PRINT STRlNG$(80,95); 

1420 PRINT 0) 480,"Reading DIR/SYS on Drive ";RIGHT$(DRV$,1) 
1430 GET 1,1 
1440 FffiLD 1,203 AS Cl$,l AS VER$,1 AS XCYLSS.3 AS D$ 

,8 AS DISKNS.8 AS D$,32 AS AUTX$ 
1450 VER-ASC(VER$)-36 
1460 DNAME$-DISKN$ 
1470 XCYLS'ASC(XCYLS$) 
r 1480 CYLS=XCYLS+34 

1490 D? CYLS<96 

THEN TT*ASC(MID$(C1$,97,1)) 

ELSE TT-255 



1500 FOR A -1 TO CYLS 
1510 TN-ASC(MID*(C1*A1)) 
1520 D7 TN<TT 

THEN TT-TN * 

1530 NEXT A 
1540 TP-256-TT 

1550 REM •• CHECK FOR TRSDOS 8.0 TO 6.2 ** 
1560 D7 VER<60 OR VER>63 THEN AUT$-AUTX$K3OT0 1610 
1570 OPEN "R",2,"BOOT/SYS"+DRV$ 
1580 GET 2,3 

1500 FIELD 2,32 AS D$,80 AS AUT6$ 
1600 AUT$-AUT8$ 
1610 A»DISTR(AUT$,CHR$(13)) 
1620 D7 A>0 THEN AUT0$-LEFT$(AUT$4NSTR(AUT$,CHR$(13))-1) 

ELSE AUT0$-CHR$(0) 
1630 PRINT 240,"<"DNAME$"> AUTO <"AUT0$">"; 
1640 PRINT • 360,CYLS-fl"cylinders-; 
1650 FOR A -8 TO 1 STEP -1 
1660 IF (2"A-1)>TP 

THEN NEXT A 
ELSE GRANS-A-1 
1670 PRINT GRANS+l"grans per cyl"; 
1680 FOR A -0 TO CYLS 
1690 TT-ASC(MID$(C1$,A+1,1)) 
1700 PRINT • 601,"woridng on cyl'A; 
1710 FOR B-0 TO GRANS 
1720 D? (TT AND BI(B)) 

THEN PO(A3)-30O 
1730 NEXT B: 

NEXT A 
1740 FOR D-0 TO 7 

1750 FffiLD 1.(0*32) AS DS.32 AS R$(H) 
1760 NEXT H 

1770 D? L0F(1)>34 THEN DFCB-34 ELSE DFCB-LOF(l) 
1780 FOR A -3 TO DFCB 
1790 GET1A 
1800 FOR B-0 TO 7 
1810 RR$((A-3)*8+l+B)-Rt(B) 

1820 NEXT B: 

NEXT A 
1830 CLOSE 
1840 FOR A -1 TO 300 
1850 D? LEN(RR$(A))<32 

THEN GOTO 1890 
1860 B«A 
1870 D? ASC(RR$(B))>127 AND ASC(MD>$(RR$(B),6.1))<64 

THEN B-FN NR(RR$(B)) 
1880 D? ASC(RR$(B))>1 AND ASC(MH)$(RR$(B),e,l))>«4 
THEN T$-FN F$(RR$(B),5): 
D7 ASC(T$)-254 
THEN MH>$(RR$(FNNR(T$)),6,ll)-Mn>$(RR$(B),6,ll): 
B-FN NR(T$): 
GOTO 1870 
1890 NEXT A 

1900 RR$(300K locked out "+STRINGt(16.255) 

1910 RR*(0)=STRING$(32,32) 
1920 FOR A -1 TO 300 
1930 D? LEN(RR$(A)K32 

THEN GOTO 2110 
1940 D? ASC(RR$(A)Hfl 

THEN GOTO 2110 
1950 D7 ASC(RR$(A»127 AND ASC(MD)$(RR$(A),6,11))<64 

THEN GOTO 2110 
1960 T$-MID$(RR$(A),6,11) 
1970 D? T$<STRWG$(12,32) 

THEN GOTO 2110 
1980 PRINT • 480,CHR$(31)"WorUng on "MD)$(RR$(A).6.11); 
1990 LSET TS-FN FS(RR$(A),1) 
2000 A1-ASC(T$) 
2010 D? AKCYLS+1 

THEN A2-FN SG(T$): 
A3-FN GC(T$): 
GOSUB 2390 
ELSE GOTO 2110 
2020 LSET TS-FN F*(RR$(A),2) 
2030 A1-ASC(T$) 
2040 D? AKCYLS+1 

THEN A2-FN SG(T$): 
A3-FN GC(T$): 
GOSUB 2390 
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ELSE GOTO 21M 
2*M LSET TS-FN Ff(RR$(A),3) 
2Mf A1-ASC(T$) 
2171 IF AKCYLS+1 

THEN A2-PN SG(T$): 
A3-FN GC(T$): 
GOSUB 2398 
ELSE GOTO 2111 
LSET W-FN P$(RR$(A),4) 
Al-ASC(TS) 
21M IF AKCYLS+1 

THEN A2-FN SG(T$): 
A3-FH GC(T$): 
GOSUB 23M 
2111 NEXT A 
212* LPRINT COUPS 

2136 LPRINT TAB(li)"DI«k name <"DNAME$"> Auto <"AUTt$">" 
2146 LPRINT ' Cyl "; 
2156 FOR A •* TO GRANS 

21M LPRINT USING "S \":"GRAN"+STR$(A); 

2176 NEXT A 
21M LPRINT 
2100 FOR A -• TO CYLS 
22M LPRINT USING "##• "A 
22M FOR AA-6 TO GRANS 

2221 LPRINT USING "< \ \>";MD$(RR$(PO(AAA)),6,ll); 

2236 NEXT AA 
224* LPRINT 
2256 NEXT A 
22M LPRINT NORMS 
2271 LPRINT CHR$(12) 
22M CLS 
22M PRINT • lM2,"Press <D> to return to DOS 

or any other key for NEXT disk"; 
23M FOR A -1 TO 1 
231f A$HMKEY$ 
2321 A-LEN(A$) 

2331 NEXT A 

2346 IF AS-TFOR AS-"d"THEN SYSTEM 

2356 RUN 

23M PRINT A1^2^3V; 

24H FOR AA-0 TO A3 

2416 P-A2+AA 

2420 IF P>GRANS 

THEN Al-Al+1: 
A2— AA: 
GOTO 2410 
243S PO(Al,P)-A 
2440 NEXT AA 
2450 RETURN 



SHORT & SWEET SUpBOUTINE 

by Bert C. Guffens (COMPU-80) 

Kasteelstraat 28, B-1800 Vllvoorde, Belgium 

In all my programs that need a facility to "fill In the blanks" 
I use the following routine. Before I begin writing any new 
program, I load a program containing this and some other routines, 
and start by deleting what I am not going to need. This one I 
always need. It Is located at line 100 and all my subroutines will 
have line numbers below 500, which is where I usually start the 
program. 

100 ZZ-15360A3^AA#-0:AA$-"":W$="" 

102 IF A2=l THEN A4=48:A5-57 

104 IF A2ol THEN A4-32:A5-122 

106 FOR II«0 TO Al-l:POKEZZ+A0+n,95:NEXT H 

108 W$=INKEY$:IFW$=""THEN108 

110 IF W$=CHR$(91)THEN AA$-W$:RETURN 

112 IF W$-CHR$(64)THEN AA$=W$:RETURN 

114 IF W$-CHR$(13)THEN FOR H-A3 TO A1:P0KE ZZ+A0+II,128:NEXT U:F 

OR n=0 TO A3-l:AA$-AA$+CHR$(PEEK(ZZ+A0+n)):NEXT H-.GOTO 124 

116 IF W$-CHR$(8) THEN W$-"":IFA3>0 THEN A3=A3-1:P0KE ZZ+A0+A3.9 

5: GOTO 108 

118 IF W$=CHR$(24) THEN 100 

120 IF W$<CHR$(A4) OR W$> CHR$(A5) THEN W$-"":GOTO 108 

122 IF A3-A1 THEN 108 ELSE POKE ZZ+A0+A3,ASC(W$):A3«A3+1:GOTO 1 

08 

124 IF A2=l THEN AA#-VAL(AA$) 

126 RETURN 



How It works 

Whenever you need to fill In a field, put the location In A0, 
put the length In Al, and give A2 the value of 1 if only numeric 
entries are allowed or if any alphanumeric entry Is to be 
excepted. Example: A0-405:A1-8:A2»1:GOSUB 100 wHl print a line 
of eight underscore characters and position the cursor (invisibly) at 
the beginning of the field. Upon return AA$ will contain all 
information In string form and in case A2 was 1, A* will also 
contain the numeric value. 

Line 100 initializes the variables and Incidentally, ZZ-15360 
which is the start of your screen (position 0) can also be placed 
early in your program. 

Line 102 limits your entries to numeric characters. 

Line 104 extends the limits to alphanumeric entries. 

Line 106 pokes a line at A0, with a length of Al characters, 
in this case underline (CHR$(95)). You can change it to any 
character you like but if you do, also adjust line 116. 

Line 108 waits for your input. 

Line 110 - If you entered an up-arrow, which in my program 
is used to point at the previous entry, AA$ will cause It to be 
handled as required in your program. 

Line 112 works the same as 110 but upon entering the '•' 
sign. I use this to escape from the present program part back to 
the menu. 

Line 114, pressing ENTER ends all entries. All unused 
underlines are cleared, leaving only your entry. AA$ is 
concatenated with all the Information you typed and program flows 
to 124 where, if A2 was 1 then AA# takes the value of AA$ and 
line 126 returns with a valid field. 

Line 116 checks to see if you pressed the left arrow. If you 
did, the last entered character is cleared and replaced by an 
underline. 

Line 118 checks to see If you pressed shift/left arrow. If you 
did then you restart In line 100 as you entered the subroutine. 

Line 120 verifies If the entered character is vaUd, if not it Is 
refused and you return to line 108 for the next Input. 

Line 122 If you have used up all your space then you are 
continuously directed to line 108 for an escape character. As long 
as your field length is not used up, you poke the ASCH value of W$ 
In its proper place, move the cursor one position and goto 108 for 
a new input. 

You must recover the contents of AA$ before calling the 
subroutine again. 

A small demonstration program (subroutine in place) for an 
address Ust (Belgian style). 

10 CLS:CLEAR 2000:P$-CHR$(91):GOTO500 'jump all subroutines 

500 PRINTw386,"NAME :" 

510 PRINTw450,"ADDRESS :" 

520 PRINT9514,"P0STAL CODE.:" 

530 PRINT0>578,"TOWN :" 

540 0PEN"R*,l,"ADDRESS/BEL:r,74:FIELD 1.20 AS Al$,30 AS A2S.4 AS A 

3S.20 AS A4$:X-LOF(l) 

550 X-X+l 

560 A0-400:A1-20:A2-0:GOSUB100 

570 D7 AA$-CHR$(64) THEN CLOSE:CLS:END 

580 LSET A1S-AAS 

590 A0-464:A1-30:A2=0:GOSUB100 

600 IF AA$-P$ THEN PRINTwA0,STRING$(Al,32);:GOTO560 

610 LSET A2S'AA$ 

620 A0-528:A1»4:A2»1:GOSUB100 

630 1FAAS-P* THEN PRINTwA0,STRING$(Al,32);:GOTO590 

640 LSET A3$-AA$ 

650 A0-592:A1-20:A2-0:GOSUB100 

660 IF AA$-P$ THEN PRINTvA0,STRING$(Al,32);:GOTO620 

670 LSET A4S-AAS 

680 PUT l,X:GOTO 550 

This example Is not intended to be a stand-alone program. It 
just demonstrates the usefulness of the subroutine. It works for 
the Models I/HI. For CoCo change ZZ*1024 and adapt your screen 
addresses. If you are not going to bother with numbers forget Al 
altogether, If you do not use It elsewhere in the program, it will be 
zero anyway. 

TRY IT, YOU'LL LIKE IT. 
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MODEL 4 MULTIDOS BASIC CHANGES 
Information provided by Vera : 



The new Model 4 version of MULTIDOS Is not a "true" Model 4 
DOS In the same sense as the Model 4 versions of TRSDOS and 
DOSPLUS - It's actually closer to being a Model III DOS with 
enhancements to use all the capabilities of the Model 4. For 
memory-mapping purposes, the Model 4 version of MULTIDOS runs In 
the Model in mode. 

But the Model 4 MULTIDOS Is not Just the Model m version 
of MULTIDOS with a 24x80 screen driver added. Many 
enhancements have been added to take advantage of the 
capabilities of the Model 4. One of the More notlcable areas of 
change Is the Model 4 version of SUPERBASIC. I asked Vern 
Hester to provide ae with a list of the changes between the 
Model I/III and the Model 4 versions of SUPERBASIC, because I 
figured aany of our readers eight be interested in the new 
ehnanceaents. Here are the features of the new Model 4 
SUPERBASIC (note: all numbers are decimal unless suffixed with an 
H): 

When editing a line the <RIGHT-ARROW> moves the cursor one 
space as the <SPACE-BAR>. The <E>xlt function has been deleted. 

The REFERENCE utility Is Invoked with the "•" key. 

Under BASIC shorthand the user can backspace to use the 
single keystroke commands. ([<SHIFT>]up-arrow, 
[<SHIFT>]down-arrow, comma, period, and slash) 



A[n](,a] 

C 
D[n][-m] 



B[n] 

I 

K"program 

LMt-aJ 

[•"program 

Mn.a 

Nn,m 

P[n] 

R[Qj 

R 

R"prograa 

S"prograa 



Single letter commands 
Auto line numbering starting at n (default 10) 
Incrementing by m (default 10) 
Continue program execution after STOP. 
Delete lines from n to m. (Changed to have similar 
syntax to LIST, a does not have to be an existing 
line; however, at least one line should be between n 
and a.) 

Edit line n. (Default current line) 
Insert. Invokes (psuedo) A .+1,1 
Remove program 
List lines from n to m 
Load program 
Move line n to m 
Duplicated line n at a 

List page of lines from n (defaults current line) 
Run program starting at line q (see note) 
Run program starting at the first line 
Load and run program 
Save program 



The period "." may be used for n or m to represent the 
current line. NOTE: q = line number or a mandatory space 
LABBT'label" (RUN LABEL"DOGGY") 

TRON has 7 additional functions when followed by the numbers 1-7 
TRON or TRON - Trace In the upper right corner of display. 
TRON 1 = trace to line printer. 
TRON 2 = display the BASIC statement in the lower left corner 

BEFORE it is executed. 
TRON 3 = single step with delay. Delay Is controlled via 

<CTRL><D> to increase delay, and <CTRL><F> to decrease 

delay, (need <CTRxs> between each delay change - see 

below) 
TRON 4 =* single step line. 
TRON 5 - single step instruction. 
TRON 6 = Single step off. 
TRON 7 - display erroneous statement. 

Once TRON is envoked, <CTRLXQ> thru <CTRLxW> will modify 
a TRON from TRON 1 to TRON 7 respectively. I.e. <CTRLxS> will 
modify a TRON 2 to be TRON 2 and TRON 3. A <CTRLxV> will 
remove a TRON 2. 

TRON or TRON and TRON 1 are mutually exclusive. 

TRON 4 and TRON 5 are mutually exclusive. 

CMP functions 
B "Soft" disable of "BREAK" key. 
C Invoke "SPACE COMPRESSION" utility. 
D Invoke debug. 



E Interrogate last disk related error after BASIC initialized. 

P Invoke "PACKER" UTILITY. 

Q Dual/single dimension string sort. 

S Exit BASIC. 

U Invoke "UNPACKER" utility. 

V Display active scalar variables. 

X Invoke "REM REMOVER" utility. 

CMD "uuuuu" requires a minimum of 6080 free bytes to 
execute. If less than 6080 bytes are free, then the message 

ignored! 
will be displayed and a return to the next statement, (if any), 
will occur. 

KEYWORD changes 

CLEAR - Clears all variables, closes all OPBNed files, resets 
execution pointer, nullifies all FOR-NEXT loops, and GOSUBS; 
resets ON ERROR/STOP GOTOs, resets all variables to their 
default type, and activates the <BREAK> key. 

CLEAR nnnnn - (nnnnn = to 32767, -32768 to -1) Changes the 
amount of space allowed for string storage, and nullifies 
all FOR-NEXT loops and GOSUBs. Although nnnnn can be less 
than - 32768, a number much less than -25000 will produce 
an "Out of Memory" error. 

ON STOP GOTO line number/"label" - This command will deactivate 
the <BREAK> key in a user input mode, and cause a branch 
to line nuaber/"label" if the <BREAK> key is pressed during 
program execution. 

GOTO "label" 

GOSUB "label" 

RESTORE line number/"label" 

ON ERROR GOTO "label" 

ON n GOTO/GOSUB "label'VUne number, "label'Vline number.etc... 

RESUME "label" 

IF-THEN-ELSE "label" 

RUN LABEL "label". 

CLS val - Homes the cursor and sets all of video refresh RAM to 
value of val ( to 2S5 ). 

Keywords removed from BASIC 



LABEL 
EXIT 

SORT 

IND( 

ERASE 

ZERO 

LPOS 

HEX$ 

BINS 

CALL 

WPEEK 



AUTO 


- USE A 


CLOAD 


- NOT USED 


CONT 


- USE C 


CSAVE 


- NOT USED 


DELETE 


- USE D 


EDIT 


- USE E 


SYSTEM 


- NOT USED 


i 


- USE REM 


Keywords 


added to BASIC 



loop 



LABEL "label" - defines current line as being "label" 

EXIT line nuaber/"label" - satisfies FOR-NEXT 

without FOR parameter reaching limit. 

SORT var(0) - single dimension array sort, (will add 

later). 

PRINT IND(n) - prints n spaces from current cursor 

position, (n = to 255) 

ERASE var(0) - removes var array from RAM. (CMD"L"var(0) 

- vl.6) 

ZERO var(0) - sets all elements in var array to zero if 

numeric or null if string. (CMD"K"var(0) vl.6) 

LPOS(0) - returns the position of the printer under 

software control. 

HEX$(integar val) - returns a 4 character string 

equivalent to integer val. 

BIN$(integer val) - returns a 16 character string 

equivalent to Integer val. 

CALL integer val - executes code to located at integer 

val. 

WPEEK(integer val) - returns the WORD located at Integer 

val. 



PROBLEM: 
location. 

OLD 



EXAMPLES of new BASIC commands 
To obtain the hexadecimal equivalent in a RAM 



20 DEFINT A-Z 

30 H$= "0123456789ABCDEF" 

40 X- PEEK(N) 
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50 Y= PEEK(N+1) 
60 Ll= INT (X/16) 
70 L2= X-L1*16 
80 Ml= INT (Y/16) 
90 M2= Y-M1*16 

100 A$=MID$(H$,M1+1,1)+MID$(H$,M2+1,1)+ 
MJDS(H$,L1+1.1)*MID$(H$,L2+1,1) 

NEW 

10 A$=HEX$(WPEEK(N)) 

PROBLEM: Prematurely exit a for-next loop. 



OLD 



200 FOR X-= 1 TO N 

210 IF A$(X)= "MATCH" THEN Y*X:X=N. NEXT: 

GOTO 400 

220 NEXT X 

400 PRINT A$(Y) 



NEW 

200 FOR X=l TO N 

210 IF A$(X)="MATCH" THEN EXIT 400 

220 NEXT X 

400 PRINT A*(X) 

While programs are being developed, it is easier to use 
LABEL'S to define various routines, than to assign and remember 
specific line numbers. 

Rules for labels: 
1 LABEL must be the first statement in a line. 

2. The "label" referenced must match in character length and 

case. ... , 

3. Any character other than and 34 is permitted. 

60 IF A$="R"THEN GOSUB"NEW BOARD" 
.. more program lines 
480 LABEL"NEW BOARD" 

The labels may be removed after a program is developed 
via th? use of the - command. This command invokes R™/BOL 
and replaces references to labels with line numbers. The 
LABEL"label" is removed from each line. 

PROBLEM: Limit/control an input to a numeric variable. 

OLD: Varies with the limits of the acceptable input 
characters. 

NEW: 10 CLEAR 
20 CLS 
30 AC$ = "012345" 

menu printed here with 5 options 
80 INPUT « 704,1,95, USING A$, "SELECTION ";S 

SYNTAX' 
iSTOTipo S .[*]len,char,rNOT][USINGexp$],["prompt";]varu 

LINEINPUT «pos, [#] len, char, [NOT] [USING exp$], "P™«Pt ;] var$ 
INPUT Icol, ™. [#J len. char. [NOT] [USING exp$]. fpro-pt^ van, 
LINEINPUT!col,row,[#]len.char,[NOT][USINGexp*],["prompt;]var$ 



char 



NOT 

USING 

exp$ 



SYMBOL 
ipos 



Icol, row 



# 
len 



ip^ifies exactly - in terms of Video Display 
positions - where the INPUT prompt or INPUT 
field - if no prompt, will begin printing. Integer 
expression between and 1023 (64X16), or and 
1919 (80X24). wj 

Specifies exactly which column (col), and which row 
the INPUT prompt or INPUT field - if no prompt, 
will begin printing. Integer expressions between 
and 63 for "col", and to 15 for "row" (64X16), 
or between and 79 for "col", and to 23 for 
"row" (80X24). 

Specifies automatic <ENTER> when INPUT field is full. 

This is the length of the INPUT field. Integer 
expression between 1 and 255. 



"prompt"; 
varu 

var$ 



This is the field character. Integer expression 
between 1 and 255. (These are Video POKE 
values not "PRINT" values). 

Mask reject indicator, (see below) 

Mask indicator, (see below) 

String expression representing the mask characters. 

USING exp$ - Only «■« characters in expS. 

NOT USING exp$ = Do not use any characters in expS. 

The optional prompt message. 

Numeric or string variable, or numeric/string variable 

list. 
A single string variable. _______ 
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MODEM: PROBLEMS AND PHONE 

UNES 

by Mel Patrick 

[Reprinted from SMUG News, the newsletter of the Surrey 
(British Columbia, Canada) Microprocessors Users Group:] 

Bad an interesting thing happen to a friend the other day. 
He had purchased an auto answer modem and couldn t get It to 
auto answer. After building up some real anger he stormed off to 
the store and demanded some satisfaction. 

The manager took the modem, plugged It into the phone ltae. 
set the switches for auto answer and called It from "not*" 
in-store line. When it answered perfectly, you might say that the 
wind went out of his sails. Nevertheless, the store provided him 
with a brand new modem and even tested it to make sure that it 
worked before allowing him to take it home. 

Upon arriving at home he proceeded to plug in the modem and 
dial it up. No, It still didn't answer. But why? He was 
considering calling B.C. Tel and complaining or returning the modem 
for a complete refund, with no doubt some til feelings towards the 

* OTe About this time he phoned me and asked If I had any Ideas. 
Contrary to what you might think or have heard at the club 
meetings. I didn't have any brainstorms, although I did say it could 
be done. A few Ideas were tossed around and he tried tnem 

without any success. , . 

We then discussed a few other ideas and low and behold we 
hit on the cause of the problem. He has a single phone line 
entering his house and is somewhat of a phone fanatic. On that 
line there are a total of five phones, which a. It turned out. 
dropped the bell signal level low enough so that the modem 
couldn't detect It. Consequently It wouldn't answer when It got the 

l0W ^eToral of this story is a simple one. I didn't solve U. 
problem, nor did he. But between the two of us. we managed to 
work out a solution. That Is what computing usually lacks. 
Someone has a problem and they cant solve It so they give up and 
write it off as impossible. All that was required was a little 
Insight from another person to help out. If you have a e«P-tb« 
problem ask someone about it. If they have already had it happen 
to them It could save a great deal of anguish. 

[NORTHERN BYTES Editor's Note: To expand on the above, 
almost every telephone or telephone device contains some sort of 
ring signal detect circuit. In the older style phones, this- consists 
of a capacitor in series with the coils of the electromagnets on the 
ringer, thus forming a tuned circuit (usually tuned to 20 Hs on most 
systems). Newer "electronic" phones may substitute a soUd state 
circuit of some sort. The important thing to remember is that the 
ringer, be It mechanical or electronic, remains connected to tne 
phone line when the associated phone is on the hook. And, because 
these are often tuned circuits, they have the potential to absorb 
certain audio frequencies, while not affecting others. 

The point is that if you are having ANY sort of problem In 
using a modem on your line that does not occur when you take 
your modem to a friend's house, try unplugging all other phone, and 
phone device, on your line before taking any drastic wmmmm > <>*« 
calling the phone company). It Just may be that the circuitry to 
one or more of the other phones Is forming an audio "trap that Is 
absorbing the modem frequencies that are produced and/or received 
by your modem. Obviously, this sort of problem Is rare, but it 
never hurts to eliminate all possibilities before giving up 
completely...] ^^ 
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DATA COMPRESSION TECHNIQUES USING SQ AND USQ 

by Mark DlVecchlo 

[This article has been In so many user group newsletters that I'm 
not sure where it originated, though most sources give original 
credit to the San Diego IBM PC Users Group. It is very apparent 
that the author was working in an MS-DOS environment, but the 
principles discussed here are Just as applicable to the TRS-80 
versions of SQ and USQ.) 

In any computer system, efficient management of the file 
storage space Is Important. The two programs SQ and USQ reduce 
the size of data files by using the Huffman Data Compression 
Algorithm. 

A file is composed of a sequence of bytes. A byte Is 
composed of 8 bits. That byte can have a decimal value between 
and 255. A typical text file, like a C language program, is 
composed of the ASCII character set (decimal to 127). This 
character set only requires seven of the eight bits in a byte. Just 
think — if there were a way to use that extra bit for another 
character, you could reduce the size of the file by 12.5X. For 
those of you who use upper case characters only, you use only 
about 100 of the ASCII codes from to 255. You could save SOX 
of your storage If the bits not needed within each byte could be 
used for other characters. What if you could encode the most 
frequently used characters in the file with only one bit? For 
example, If you could store the letter "e" (the most commonly used 
letter in the English language) using only one bit: "1", you could 
save 87.5X of the space that the "e" would normally take If it were 
stored as the ASCII "0110 0101" binary. 

The answer to these questions Is the SQ and USQ programs. 

The SQ program uses the Huffman coding technique to search 
for the frequency of use of each of the 258 possible byte patterns, 
and It then assigns a translation for each character to a bit string. 
All of these bit strings are placed end to end and written onto a 
disk file. The encoding Information is also put on the file since 
the USQ program needs to know the character distribution of the 
original file. 

The USQ program reads in the encoding Information and then 
reads In the encoded file. It is a simple matter to scan the 
encoded file and produce an output file which is Identical to the 
file that SQ started with. "' 

HUFFMAN CODING TECHNIQUE 
This is by far the most popular encoding technique in use 
today. The Huffman encoding replaces fixed bit characters with 
variable length bit strings. The length of the bit string Is roughly 
inversely proportional to the frequency of occurrence of the 
character. For those of you inclined to such symbolism: 

Length of bit string - log 2 (character probability) 

The implementation of the algorithm which we will discuss 
encodes fixed bit strings of length 8. 

The algorithm requires two passes through the input file. The 
first pass builds a table of 256 entries showing the frequency of 
each occurrence of each of the 256 possible values for a byte of 
Information. 

Once the counting is complete, the algorithm must decide 
which bit strings to associate with each of the 256 characters that 
were found in the file. Note that If a particular byte value was 
never used, no string association is needed. 

The second pas* through the Input file converts each byte 
Into its encoded string. Remember that when the output file is 
created, the information used for encoding must also be written on 
the file for use by the decoding program. 

The decoding program reads the encoding Information from 
the file and then starts reading the bit strings. Aa soon as enough 
bits are read to Interpret a character, that character Is written 
onto the final output file. See the next two sections on how SQ 
and USQ actually implement this. 

Even though this article primarily has addressed ASCII input 
files, there is nothing which restricts this algorithm to ASCII. It 
will work on binary files (.COM or .EXE [or /CUD or /OBJ In TRS-80 
usage)) as well. But since the length of the encoded bit string Is 
approximately equal to the inverse of the frequency of occurrence 
of each 8 bit byte, a binary file may not compress very much. 
This Is because a binary file most likely has a uniform distribution 
over the 256 values In a byte. A machine language program is not 
like the English language where the letter "e" is used far more 
than other letters. If the distribution is uniform, the encoded bit 



strings will all be the same length and the encoded file could be 
longer than the original (because of the encoding information on 
the front of the file). All of this has to be qualified, because 
machine language programs tend to use a lot of "MOV" Instructions 
and have a lot of bytes of zeros so that encoding .COM and .EXE 
files does save some disk space. 

SO. 

The SQ program is an example of the Huffman algorithm. 

The first thing that SQ does is read through the input file 
and create a distribution array for the 256 possible characters. 
This array contains counts of the number of occurrences of each of 
the 256 characters. The program counts these values In a 18 bit 
number. It makes sure that, if you are encoding a big file, counts 
do not exceed a 16 bit value. This Is highly unlikely, but it must 
be accounted for. 

At the same time, SQ removes strings of identical characters 
and replaces them with the ASCII character DLE followed by a 
character count of 2-255. SQ replaces the ASCII DLE with the pair 
of characters: DLE DLE. This Is not related to the Huffman 
algorithm but Just serves to compress the file a little more. 

Once SQ has scanned the Input file, it creates a binary tree 
structure containing this frequency occurrence Information. The 
most frequently occurring characters have the shortest path from 
the root to the node, and the least frequently occurring characters 
have the longest path. For example, if your file were 
'ABRACADABRA' (a very simple and magical example) the table of 
frequency of occurrences would be: 



LETTER 
A 
B 
C 
D 
R 
all the rest 



# OF OCCURRENCES 

5 
2 
1 
1 
2 
O 



Since the letter "A" occurs most often, it should have the 
shortest encoded bit string. The letters "C" and "D" should have 
the longest. The other characters which don't appear in the Input 
file don't need to be considered. 

SQ would create a binary tree to represent this information. 
The tree might look something like this (for purposes of discussion 
only): 

root < Computer trees are always upside down I 

/ \ 
1 < — This is called a node. 

/ / \ 

A 1 

/ / \ < — This Is called a branch. 
B10 
/ / \ 
C10 

/ \ 

D R < A leaf. 

From this our encoded bit strings which are kept in a 
translation table would be: 

table Entry Character Binary 

1 A 1 

2 B 01 

3 C OOl 

4 D 0001 

5 R 0000 



The output file would be: 



* I E 

1 01 0000 
(binary) 

Al 31 Al 

(hex) 



C 
001 



A D 

1 0001 



A B R A 

1 01 0000 1 
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We have reduced the size of your file from ten bytes to 
three bytes for a 70* savings. For this simple example, things 
aren't that well off since we must put the binary tree encoding 
Information onto the file as well. So the file site grew a lot. But 
consider a file with the word ABRACADABRA repeated 100.000 times. 
Now the encoding information is going to be a very, very small 
percentage of the output file and the file will shrink tremendously. 

SQ opens the output file and writes out the binary tree 
Information. The SQ rewinds the input file and rereads It from the 
beginning. As it reads each character, it looks into the translation 
table and outputs the corresponding bit string. 

SQ Is a little more complicated than what I have outlined 
since it must operate in the real world of hardware, but this is a 
fairly complete description of the algorithm. 

USQ 

The USQ program Is very straightforward. It reads in the 
encoding Information written out by SQ and builds the identical 
binary tree that SQ used to encode the file. 

USQ then reads the input file as If it were a string of bits. 
Starting at the root of the tree, it traverses one branch of the 
tree with each Input bit. If It has reached a leaf, it has a 
character and that character is written to the output file. USQ 
then starta at the root again with the next bit from the Input file. 

WHAT DOES IT ALL MEAN? 
Now that we understand the algorithm and a little about how 
the SQ and USQ programs work, we can use that knowledge to help 
us run our systems a little more efficiently. (So all of this theory 
is worth something after all)! 

1. Files must be above a threshold size, or else the output 
file will be longer than the input file because of the decoding 
information put at the beginning of the compressed data. We don't 
know the exact size of the threshold because the encoding binary 
tree Information depends on the distribution of the characters in a 
file. At least we know to check the size of the encoded file after 
we run SQ to make sure our file didn't grow. 

2. Some files will not compress well if they have a uniform 
distribution of byte values, for example, .COM or .EXE files. This is 
because of the way SQ builds the tree. Remember that bytes with 
the same frequency of occurrence are at the some depth (usually) 
In the tree. So if all of the bytes have the same depth, the 
output strings are all the same length. 

3. SQ reads the Input file twice. If you can, use RAM disk 
at least for the Input file and for both flies if you have the room. 
The next best case Is to use two floppy drives, one for Input and 
one for output. This will cause a lot of disk starts and stops but 
not much head movement. Worst case is to use one floppy drive 
for both input and output. This will cause a lot of head movement 
as the programs alternate between the Input and output files. 

OTHER COMPRESSION TECHNIQUES 

RUN-LENGTH ENCODING 
Run-length encoding is a technique whereby sequences of 
Identical bytes are replaced by the repeated byte and a byte count. 
As you might guess, this method is effective only on very 
specialized files. One good candidate Is a screen display buffer. A 
screen is made up mostly of "spaces". A completely blank line 
could be reduced from 80 bytes of spaces to one space followed by 
a value of 80. To go from 80 bytes down to two bytes Is a 
savings of almost 98*. You might guess that for text files or 
binary files, this technique does not work well at all. 

ADAPTIVE COMPRESSION 

This technique replaces strings of characters of code. For 
example, the string "ABRACADABRA" would be replaced by a code. 
Typical algorithms use a 12 bit code. The algorithm is unique in 
that it only requires a single pass through the input file as the 
encoding Is taking place. The current incarnation of this procedure 
is called the LZW method (after co-inventors A. Lempel, J. Ziv and 
T. Welch). This algorithm claims a savings of 86* on machine 
language files and up to 83* on COBOL files. 

[NORTHERN BYTES editor's note: The method used by the 
BASIC Interpreter to tokenize BASIC keywords down to Just one 
byte might be considered an example of a very simple form of 
adaptive compression.] 

OTHER READING 



If you are Interested In reading more about data compression 
techniques, you may be interested In these articles: 

H. K. Reghbati, "An Overview of Data Compression Techniques", 
Computer Magazine, Vol. 14, No. 4, April 1981, pp. 71-76. 

T. A. Welch, "A Technique for High-performance Data 
Compression", Computer Magazine. Vol. 17, No. 6, June 1984, pp. 

8-19. 

J. Ziv and A. Lempel, "A Universal Algorithm for Sequential 
Data Compression", IEEE Transactions on Information Theory, Vol. 
11-23, No. 3, May 1977, pp. 337-343. 

[NORTHERN BYTES editor's note: The TRS-80 versions of SQ 
and USQ (written by David Huelsmann) are available on TAS PUMlc 
Domain Library disk #015 ($10 for #018 only, or $20 for the set 
#015-#017 which includes Mr. Huelsmann's Library Utility programs, 
plus $3 shipping/handling per order). Mr. Huelsmann Is the 
Chairman of the TRS-80 Conference on the TBC BBS at (80S) 
821-7379 (1200-2400 bps anytime. 300 bps after 2300 Mountain Time. 
Verification required - Request entry to TRS-80 Conference SIG). 

I'd like to especially encourage those who may be creating 
networking type BBS programs (the kind that send messages or flies 
to other BBS's In the middle of the night) to consider using a data 
compression algorithm of some sort to automatically squeeze the 
data prior to transmission, and then unsqueeze It at the receiving 
end. This seems Uke a sensible thing to do, but few networking 
BBS's actually do It - yet such compression of data could save lots 
of money on the SYSOP's phone bill!) 



NEVER RETYPE TEXT AGAIN! 

One 1 of the reasons that It is so difficult to do NORTHERN 
BYTES is because of the amount of material that we reprint from 
other publications. Most of this material has to be re-typed. I am 
a slow typist and hate to type anyway, but have sometimes been 
able to get articles re-typed by people at The Alternate Source. 
Unfortunately, when humans re-type an article, they usually make 
mistakes - ESPECIALLY on a long program listing, the very thing 
that absolutely MUST be accurate. 

Unfortunately, most of the current generation of text readers 
are not much better. They work by comparing characters on the 
printed page against characters stored in the reader's memory. 
This MAY work properly if the characters on the printed page 
EXACTLY match the stored characters. Considering the hundreds of 
typefaces now in use In various publications, the odds against that 
are pretty large. Besides, most text readers cannot cope with 
proportionally spaced text, text that is in columns or zones on a 
page, text that wraps around Illustrations, etc. 

Now the Palantir Corporation (2500 Augustine Drive, Santa 
Clara, California 95054, telephone 408-986-8006) has Introduced a 
device called the Compound Document Processor which not only 
overcomes all of the above limitations, it also has the capability to 
digitize Images that may be on the page. In other words, it can 
read the text that wraps around an image and digitize the image so 
that, for example, a page of mixed text and graphics could bey 
reconstructed after editing of the text. The text Itself can be In 
just about any type font, and no, you don't have to pre-train the 
unit with a sample of the font - It works using a process called 
"feature extraction" that looks for unique features of characters to 
distinguish them, and is also context-sensitive so that It can 
distinguish between characters such as "1", "1", and T (but can it 
distinguish between the variable T and the constant "1" In a BASIC 
program listing? That would be a real test!). 

Unfortunately, such sophistication does not come cheap. The 
current price of the system is $39,500 (now If we could only get 
1000 newsletter editors to chip in $39.50 each...). So I doubt that 
the price of such technology will drop enough to save Northern 
Bytes (even at one-tenth the price, we couldn't afford itl). ' This 
would be an ideal Item for libraries, print shops and copy centers 
to purchase as a convenience for their patrons (with a 
coin-operated option added), but the current price is prohibitive for 
even that use in most situations. Still, the technology is now 
so it's only 



TV 



m 



available, so It's only a matter of time until the price drops, "f^'l 
Maybe in ten or twenty years from now, the headline of this article ') } 
will be a reality for all of us, not just the very rich) 
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USD«TE/SYS OVERLAY FOR 

NEWDOS/80 MODEL I 

by Mark Davey 

P.O. Box 433, Sunnybank. Queensland 4109, Australia 

In Northern Bytes Volume 5, Number 2 Jack Decker published 
a program called "SETDATE/ASM". This program would display a 
recent date on the computer's video display unit, at power up or 
reboot, and with a few key strokes it was possible to update the 
system date, and save the new date. The saved date would be 
recalled when the computer was rebooted. 

In Northern Bytes Volume 5, Number 3, Jack Decker published 
an article on adding your own /SYS overlays to NEWDOS/80; whilst 
in Northern Bytes volume 5, number 4, a similar article was 
published entitled "A New Overlay Module For NEWDOS/80 Version 
2". This article gave instructions on how to add a new 
JKLSYS/SYS file. 

Why not, I thought, take Jack Decker's SETDATE program and 
turn It into a NEWDOS/80 "/SYS" overlay, that would be activated 
by the NEWDOS/80 SYSTEM options AY and AZ (AY sets date and 
time prompts after cold boot, whilst AZ sets date and time prompts 
after warm boot). 

"USDATE/SRC" is the result of this effort, a new /SYS file for 
Model I NEWDOS/80 users. The new /SYS file is loaded into the 
BASIC overlay area starting 5200H by SYSO/SYS, under the 
conditions you have specified by SYSTEM options AY and AZ. In 
operation It is similar to the original SETDATE program, with a few 
exceptions. Most notable of these exceptions is the lack of 
displayed instructions (in order not to clutter the screen I decided 
to remove them all). 

The Instructions are included at the start of the program 
listing, and for the sake of brevity, will not be repeated here. I 
would, however, like to draw your attention to one. particular 
change to the original program. When the <ENTER> key was 
pressed, SETDATE would take the displayed date and not only set 
the computer's date, but save that date on disk for future use. In 
this program, pressing <ENTER> will ONLY set the computer's date. 
In order to save the date to disk, as well as setting the computer's 
date, you must press <SHTFTxENTER>, i.e. whilst holding the shift 
key down, press the enter key. 

Why did I do this? Well I like to keep a write protect tab on 
my system disk, and if I do this I obviously can't write to the disk. 
Thus I needed to be able to set the computer's date without 
writing to disk. At the same time I wanted to be able to 
occasionally alter the date stored on the disk. Hence I needed to 
be able to update the computer's system date in two ways; one, 
without saving the date to disk; and two, saving the date to disk. 

The installation procedure is similar to that described by 
Joachim Kelterbaum In his article "A New Overlay Module For 
NEWDOS/80 Version 2". First type in the assembly language listing 
using an editor/assembler program, and save it on a NEWDOS/80 
system disk (I would recommend you make a backup of NEWDOS/80 
for this procedure). Assemble the program and save it to the disk 
as USDATE/CMD. 

To operate, the program MUST be positioned at a specific 
directory entry. I have chosen position 28, which is byte 60H of 
relative sector 6 in the directory. The easiest way to place the 
file in this position Is to use the CREATE command to create a 
series of directory entries, e.g. CREATE TRY1:0; CREATE TRY2:0; 
etc. Now examine the directory to find which of the newly created 
files is at position 28 (byte 60H of relative sector 6 in the 
directory). If there is no entry at position 28, continue creating 
files until you have one there. When you do, note the name of this 
entry, then return to the NEWDOS/80 command level and kill all the 
unwanted files that you have created. 

Now change the name of this entry to USDATE/SYS (using the 
NEWDOS/80 RENAME function), and copy USDATE/CMD to 
USDATE/SYS. Once copied, you may kill the USDATE/CMD file. 

The next step Is to examine the directory entry for 
USDATE/SYS, and make sure that it has only one extent (see the 
directory column headed "EXTS"). This is important as an overlay 
Is always assumed to have only one extent. If the file has more 
than one extent you must make a new system disk by copying it to 
another disk with the command COPY 0,1„FMT,CBF. Now check the 
directory entry for USDATE/SYS once again to make sure that it 
has only one extent. 

Once the program Is saved in the correct directory position, 
use SUPERZAP to change the first byte of the directory entry for 
USDATE/SYS to 5FH. NEWDOS/80 will now consider this file to be 
a standard /SYS file when displaying a directory listing. 



NEWDOS/80 must now be patched to call the new overlay in 
accordance with SYSTEM command AY and AZ options. To do this 
load SUPERZAP and zap SYSO/SYS file relative sector 0012, byte 56. 
It should be 21 63 SO, and you must change it to 3E 9C EF. If you., 
wish, you can change bytes 59 through to 67 Inclusive, to 00. Thls^ 
is optional, as it just zeros the balance of the normal Date input 
routine, which will no longer be used. The following is the sector 
from byte 50H onwards. 

BEFORE: CD 67 44 C3 05 44 21 63 50 CD 64 4F 01 9C 50 11 46 40 
3E 2F CD 6F 4F 00 

AFTER: CD 67 44 C3 05 44 3E 9C EF 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 

This above patch corresponds to the following machine code 
instructions: 



3E 9C 
EF 



LD 
RST 



A,9C 
28H 



The 9C being comprised of AAA BBBBB, where BBBBB is 28 decimal, 
and AAA is 100 binary. The RST 28H instruction loads and runs the 
overlay at the directory entry specified by the BBBBB portion of 
the byte stored in the A register. The AAA portion of the byte 
must have at least one of the bits set. This is a very simplified 
explanation. To obtain a better understanding of how this works I 
would refer you to the articles mentioned above, and to comments 
on this subject made by Nathan W. Harrington which appeared in 
Northern Bytes Volume 5, Number 4, page 2. 

As the program stands it will not jump to the time request. 
For those who would like to be able to enter the time as well as 
the date, the standard NEWDOS/80 time input can be activated by 
changing line 2430 in the source code from a "RET" to a "JP 
4F50H", and your wish will be granted! 

When I originally altered the SETDATE program, I changed it 
to allow date storage In the European format. I.e. DD/MM/YY. 
After successfully making the new /SYS file I altered the date 
storage back to the U.S. format, i.e. MM/DD/YY, for the majority of 
Northern Byte readers. I have made a copy of the European date 
version of the program available to Jack Decker, and If Jack is 
willing, you may be able to obtain a copy of the program by 
contacting him. [Editor's note: Jack's address Is 1804 West 18th 
Street #155, Sault Ste. Marie, Michigan 49783-1268. When writing, 
you must enclose a blank diskette and a stamped, self-addressed 
disk mailer.] 

For those who may be using Alan Johnstone's enhanced 
NEWDOS/80 (TAS disk ND-1). assemble the program with an origin of 
6000H instead of 5200H (see line 550). All other installation 
procedures are the same. 



M1H 
Will 
(0121 
00130 
00110 
001S0 
00160 
00170 

00100 

00170 
01200 



USDATE/SRC «*»«» 
This prograi will set the coiputer systei date 
in the U.S. foriat. 

lit is called fay SYS0/SYS as an overlay file 
•hick i s loaded into the BASIC overlay area 
at 5200H. 

SYSTEM options AY and AZ enable and disable 
this overlay in the saie tanner as they 
previously enabled and disabled the DATE proipt. 



S INSTRUCTIONS 

00210 ;The arroi keys say be used to advance or retard 
00220 ithe date. Shifted arroi keys increase the rate 
00230 iof change in the date. 

00240 iUhen the date is correct) press the <ENTER> key 
00242 ito update the systei date only. 

00244 iTo update the systei date, and save the ne« 

00246 idate to disk, press <SHIFTXENTER> . 

00245 iNOTEi The disk lust not be urite protected 

00247 i if you intend to save the date to disk I 
00250 iTo bypass setting the systei datei press either 
00260 ithe <BREAK> or <CLEAR> key. 

00270 ; 

00260 iOriginal prograi iritten and copyrighted in 

00290 S17B3 by Jack Decker. 

00300 Modifications iade by Hark Daveyi 

00310 il2th October > 17B6. 

00320 ; 

00330 iOriginal copyright and conditions are still 
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00340 ;in force, i.e 


the prograa lay be reprinted 


5ZBBF4 


01130 


DEFB 


't'f-B0H 






00350 itor non-coatercial purposes 


or placed in 


528? 53 


01140 SEP 


DEFM 


'Septeibe' 






00340 iyour c 


lub's caiputer 1 ibrary 




45 70 74 45 4D 42 45 










00370 ITHE PROGRAM NAY NOT BE SOLD. 


OR INCLUDED AS 


5271 F2 


01150 


DEFB 


'r'+B0H 






003B0 iPART OF A PROGRAM PACKAGE THAT IS BEING SOLD. 


5292 4F 


01160 OCT 


DEFM 


'Octobe' 






00370 1 








43 74 6F 42 45 










00400 ; 








5298 F2 


01170 


DEFB 


V+B0H 




5200 


00550 


ORG 


5200H 


iMUST end with 00H 


527? 4E 


01180 NOV 


DEFM 


'Noueibe' 






00540 i 








4F 74 45 4D 42 45 










00570 iString 


and date storage area 


used by prograi 


52A0 F2 


01190 


DEFB 


V+B0H 






005B0 ; 








52A1 44 


01200 DEC 


DEFM 


'Deceibe' 




5200 2D52 


00590 TABLE 


DEFU 


SUN 


■Table of string pointers 


45 43 65 4D 62 65 








5202 3352 


00400 


OEFU 


HON 


i point to Strings 


52A8 F2 


01210 


DEFB 


VM0H 




5204 ??52 


00410 


DEFU 


TUE 


; containing days of 


52A7 44 


01220 PROMPT 


DEFM 


'DATE? ' 


iDate proipt 


5204 4052 


00420 


DEFU 


UED ' 


i the Keek 


41 54 45 3F 20 


v 






5206 4752 


00430 


DEFU 


THU 




5ZAF A0 


01230 


DEFB 


' '+B0H 




520A 5152 


00440 


DEFU 


FRI 




52B0 ?A 


01460 MSG 


DEFB 


1AH+80H 


ilAH iovbs dawn ant line 


520C 5752 


00450 


DEFU 


SAT 




52B1 IE 


01470 ENDYR 


DEFB 


1EH 


ilEH clears to line end 


520E 5F52 


00440 


DEFU 


JAN 


iTable of string pointers 


52B2 7D 


01480 


DEFB 


1DH+80H 


ilDH toves to line start 


5210 6652 


00470 


DEFU 


FEB 


! point to strings 




01490 i 








5212 6E52 


00480 


DEFU 


MAR 


; containing lOnths of 




01500 iStart of actual lachine- language prograi 


5214 7352 


00490 


DEFU 


APR 


; the year 


52B3 21A7S2 


01730 START 


LD 


HL.PROMPT 


iroint to date proipt 


5214 7852 


00700 


DEFU 


MAY 




52B6 CDED53 


01740 


CALL 


DSPMSG 


; and display it 


521B 7B52 


00710 


DEFU 


JUN 




S2B9 012A52 


01750 


LD 


BCDATSTR+3 


iPoint to day of vk byte 


5Z1A 7F52 


00720 


OEFU 


JUL 




52BC 0A 


01760 


LD 


A. (BO 


iGet day of week (0-6) 


521C 8352 


00730 


DEFU 


AUG 




52BD CDE553 


01770 


CALL 


PRTSTR 


.Print day of Keek string 


521E 6752 


00740 


DEFU 


SEP 




52C0 CD0454 


017B0 


CALL 


PRTCOM 


•Print com and space 


5220 7252 


00750 


DEFU 


OCT 




5ZC3 0B 


01790 


DEC 


8C 


iPoint to lonth byte 


5222 775Z 


00740 


DEFU 


iw 




52C4 0A 


01S00 


LD 


A. (BO 


iGet aonth (1-12) 


5224 A152 


00770 


DEFU 


DEC 




52C5 C606 


01610 


ADD 


A.4 


.Offset for string table 


5224 FE 


00780 MARKER 


OEFB 


0FEH 


iStart date storage area 


52C7 CDE553 


01820 


CALL 


PRTSTR 


jPrint aonth string 


5227 54 


00790 DATSTR 


DEFB 


840 


iYear storage 


52CA CD0954 


01830 


CALL 


PRTSPC 


iPrint spate 


5228 0C 


00800 


DEFB 


12D 


iDay storage 


52CD0B 


01640 


DEC 


BC 


iPoint to day byte 


5227 0A 


00810 


DEFB 


10D 


iMonth storage 


52CE 0A 


01850 


LD 


A. (BO 


iGet day (1-31) 


522A 00 


00820 


DEFB 


0D 


iDay of »eek storage 


52CF4F 


01B60 


LD 


L.A 


iPut day in L 


522B 4C07 


00830 CNTURY 


DEFU 


1900D 


1 Century storage 


52D0 2600 


01670 


LD 


H.0 


!HL • day 


522D 53 


00840 SUN 


DEFM 


'Sunda' 


{Strings containing days 


52D2 C5 


01BB0 


PUSH 


BC 


iSave date storage pntr 


75 4E 41 M 








52D3 CDFB53 


01890 


CALL 


PRTNUH 


iPrint day 


5232 F7 


00850 


DEFB 


V+B0H 


1 of Heel 


5206 CI 


01900 


POP 


BC 


.Restore date storage ptr 


5233 40 


00B40 MON 


DEFM 


'Monda' 




52D7 CD045* 


01910 


CALL 


PRTCOM 


iPrint com and space 


6F 4E 44 41 








520A 0B 


01920 


DEC 


BC 


iPoint to year byte 


5236 F7 


00670 


DEFB 


'y'+80H 




52DB 0A 


01930 


LD 


A.(BC) 


iGet year (0-99) 


523? 54 


00888 TUE 


DEFM 


'Tuesda' 




52DC 4F 


01740 


LD 


C.A 


iPut year in C 


75 45 73 44 41 








52DD 0600 


01950 


LD 


B.0 


iBC - last 2 digits year 


523F F9 


00890 


DEFB 


V+B0H 




52DF 2A2B52 


01960 


LD 


HL. (CNTURY) 


iGet century offset 


5240 57 


00900 UED 


DEFM 


'Uednesda' 




52E2 0? 


01770 


ADD 


HL.BC 


;HL * Year (all 4 digits) 


45 44 4E 45 73 44 41 








52E3 CDFB53 


01980 


CALL 


PRTNUM 


iPrint year 


5248 F? 


00910 


OEFB 


V+B0H 




52E6 21B152 


01990 


LD • 


HL.ENDYR 


iPoint to Ctrl chr strijig 


5247 54 


00920 THU 


DEFM 


'Thursda' 




52E9 CDED53 


02000 


CALL 


DSPMSG 


.Output it to video 


48 75 77 73 44 41 








52EC 3A4036 


02010 GETKEY 


LD 


A.I3640H) 


iGet BREAK/CLEAR ro« 


5250 F9 


00930 


DEFB 


V+80H 




52EF E606 


02020 


AND 


4 


iMask out other keys 


5251 44 


00940 FRI 


DEFM 


'Frida' 




52F1 206E 


02030 


JR 


NZ.EXIT 


.Exit if BREAK/CLEAR 


72 4? 44 41 








52F3 CD2B00 


02040 


CALL 


2BH 


iGet keystroke if any 


5254 F7 


00950 


DEFB 


V+80H 




52F6 B7 


02045 


OR 


A 


iZ flag set if no key 


5257 53 


00940 SAT 


DEFM 


'Saturda' 




52F7 28F3 


02050 


JR 


Z.GETKEY 


ilf no key aas pressed 


41 74 75 72 44 41 








52F9 FE0D 


02060 


CP 


0DH 


iUas it the ENTER key? 


525E F? 


00970 


DEFB 


V+B0H 




52FB 2076 


02070 


JR 


NZ.NOTCR 


iGo it not ENTER 


525F 4A 


00780 JAN 


DEFM 


'Januar' 


.Strings containing 


52FD 2127S2 


02060 


LD 


H, DATSTR 


iPoint to prgrai date 


41 4E 75 41 72 








5300 E5 


02090 


PUSH 


HL 


iSave prograa date pntr 


5245 F9 


00770 


DEFB 


V+B0H 


i tenths of year 


5301 CD0F54 


02100 


CALL 


GETBFR 


iFind aeiory date storage 


5244 44 


01000 FEB 


DEFM 


'Februar' 




5304 010300 


02110 


LD 


BC.3 


iNuiber ot bytes to love 


45 42 72 75 41 72 








5307 EDB0 


02115 


LD1R 




iHove frot prograi to eei 


524D F? 


01010 


DEFB 


V+B0H 




5309 3A803B 


02114 


LD 


A.138B0H) 


iGet SHIFT key roa 


524E 4D 


01020 MAR 


DEFM 


'Marc' 




530C CB47 


02117 


BIT 


0.A 


iUas SHIFT key pressed? 


41 72 43 








530E2003 


02118 


JR 


NZ, UPDATE 


iSave nev date to disk 


5272 EB 


01030 


DEFB 


'h'+B0H 




5310 El 


02119 


POP 


HL 


iRestore register 


5273 41 


01040 APR 


OEFM 


'Apri' 




5311 1B4E 


02120 


JR 


EXIT 


.No disk save, go exit 


70 72 49 










02122 .LINES 2124 - 


2358 COMPRISE THE DISK I/O ROUTINE. 


5277 EC 


01050 


DEFB 


'IHB0H 




5313 010005 


02124 UPDATE 


LD 


BO500H 


iMove SYS0/5YS 


5278 40 


01040 MAY 


DEFM 


'Ma' 




5314 115755 


02124 


LD 


OE.SYS0 


i initialisation code 


41 










5319 21004D 


02127 


LD 


HL.4D00H 


; out of the SYS2/SYS 


527A F7 


01070 


DEFB 


V+80N 




531C EDB0 


02128 


LD1R 




i overlay area. 


527B 4A 


01060 JUN 


DEFM 


. 'Jun' 




531E 0600 


02130 


LD 


B.0 


iLogical Record lngth-256 


75 4E 










5320 113754 


02140 


LD 


DE.FCB 


iFile control Block pntr 


527E E5 


01070 


DEFB 


V+B0H 




5323 215754 


02150 


LD 


HL.FILBUF 


iFile I/O Buffer pntr. 


527F 4A 


01100 JUL 


DEFM 


'Jul' 




5324 CD2444 


02140 


CALL 


4424H 


iDOS OPEN routine , 


75 4C 










532? 203D 


02170 


JR 


NZ.ERREXT 


iGo if error j 


5282 F7 


01110 


DEFB 


V+S0H 




• 532B. 13 


02171 


INC 


DE 


iPoint to FCB+1 | 


52B3 41 


01120 AUG 


DEFM 


'Augus' 




532C 1A 


02172 


LD 


A.(DE) 


iGet status byte froa FCB 


75 47 75 73 








5320 F440 


02173 


OR 


40H 


iSet bit 6 



ff 



SO 



36 



532F 12 


02174 


LD 


(DE).A 


{Re-save status byte 


53BA 116400 


02860 


LD 


DE.100D 


5330 IB 


02175 


DEC 


DE 


i Point to FCB 


53BD 2A2B52 


02890 CHGCEr 


LD 


HL.(CNTURY) 


5331 CD3644 


02160 


CALL 


4436H 


■READ sector to buffer 


53C0 19 


02700 


ADD 


HL.DE 


5334 2032 


02190. 


JR 


NZ.ERREXT 


iGo if error 


53C1 222B52 


02710 


LD 


(CNTURY).HL 


5336 El 


02200 


POP 


HL 


iGet program date pointer 


53C4 C9 


02920 


RET 




5337 D5 


02210 


PUSH 


DE 


{Save FCB pointer 


53C5 35 


02930 BACK 


DEC 


(HL) 


5336 118154 


02220 


LD 


DE.MARKER-TABLEH+FILBUF 


53C6 F2CB53 


02740 


JP 


P.SETDA2 




02230 ; Above instruction points DE to first location in sector 


53C? 3606 


02750 


LD 


(HLI.6 




02240 {zero 


of disk file that can 


possibly contain MARKER byte 


53CB 2B 


02760 SETDA2 


DEC 


HL 


533B 1A 


02250 FNDDAT 


LD 


A. (BE) 


iGet byte trm disk sector 


53CC7E 


02980 


LD 


A.(HL) 


533C 13 


02260 


INC 


DE 


IBump pointer to next lac 


53CD 2B 


02990 


DEC 


HL 


5330 FEFE 


02270 


CP 


0FEH 


SHARKER byte found? 


53CE 35 


03000 


DEC 


(HL) 


533F Z0FA 


02260 


JR 


NZ.FNDDAT 


i Try again if not 


53CF C0 


03010 


RET 


NZ 


5341 010400 


02290 


LD 


BC.4 


{Move 4 bytes fri program 


53D0 3D 


03020 


DEC 


A 


5344 EDB0 


02300 


LDIR 




i storage to disk sector 


53D1 CD1B54 


03030 


CALL 


MAXDAY 


5346 Dl 


02310 


POP 


DE 


IRestore FCB pointer 


53D4 71 


03040 


LD 


(HL).C 


5347 CD3F44 


02320 


CALL 


443FH 


iReset to sector zero 


53D5 23 


03050 


INC 


HL 


534A 201C 


02330 


JR 


NZ.ERREXT 


iGo if error 


53D6 35 


03060 


DEC 


(HL) 


534C CD3744 


02340 


CALL 


4439H 


iUrite sector back to dsk 


53D7 C0 


03070 


RET 


NZ 


534F 2017 


02345 


JR 


NZ.ERREXT 


iGo if error 


53D6 360C 


03060 


LD 


(HLJ.12D 


5351 CD2844 


02348 


CALL 


442BH 


iDOS CLOSE routine 


53DA2B 


03070 


DEC 


HL 


5354 2012 


02350 


JR 


NZ.ERREXT 


iGo if error 


53DB 2B 


03095 


DEC 


HL 


5356 010005 


02352 


LD 


dLjDvvH 


{Move SYS0/SYS 


530C 35 


03100 


OEC 


(HL) 


535? 110040 


02354 


LD 


DE.4D00H 


i initial i sat ion code 


53DD F0 


03110 


RET 


P 


535C 215755 


02356 


LD 


HL.SYS0 


i back to the SYS2/SYS 


S3DE 3663 


03120 


LD 


(HL).??D 


535F EDB0 


02358 


LDIR 




; overlay area. 


53E0 117CFF 


03130 


LD 


DE.-100O 


5361 21B052 


02410 EXIT 


LD 


HL.M5G 


.Drop domn one line 


53E3 1806 


03140 


JR 


CHGCEN 


5364 CDED53 


02420 


CALL 


DSPMSG 


iDisplay message 


53E5 07 


03150 PRTSTR 


RLCA 




5367 C? 


02430 


RET 




i Cant . DOS initialisation 


53E6 6F 


03160 


LD 


L.A 




02431 ITO ENTER THE TINE AS WELL. 


CHANGE 'RET' IN 2430 TO 


53E7 2652 


03170 


LD 


H.TABLE<-6 




02432 i'JP 


4F50H' 






53E? 7E 


03160 


LD 


A,(HL) 


5368 F5 


02433 ERREXT 


PUSH 


AF 


iSave error code 


53EA 23 


03170 


INC 


HL 


536? 21B052 


02434 


LD 


HL.MSG 


iDrop domn one line 


53EB 66 


03200 


LD 


H.(HL) 


536C CDED53 


02436 


CALL 


DSPNSE 


iDisplay message 


53EC 6F 


03210 


LD 


L.A 


536FF1 


02437 


POP 


AF 


{Restore error code 


S3ED7E 


03220 OSPMSG 


LD 


A.(HL) 


5370 C30744 


02436 


JP 


4409H 


ilf error use ERROR rtne 


53EEB7 


03230 


OR 


A 


5373 FE5B 


02440 NOTCR 


CP 


5BH 


iUas keystroke up-arrom? 


53EF C8 


03240 


RET 


Z 


5375 2B14 


02450 


JR 


Z.ARROU 


(Go if up-arrom 


53F0 F5 


03250 


PUSH 


AF 


5377 47 


02460 


LD 


B.A 


iSave keystroke in B 


53F1 E67F 


03260 


AND 


7FH 


5378 F610 


02470 


OR 


10H 


.Make shitted=unshi{ted 


53F3 CD3300 


03270 


CALL 


33H 


537A FE16 


02480 


CP 


18H 


.Invalid keystroke if 


53F6 Fl 


03260 


POP 


AF 


537C DAEC52 


02470 


JP 


C.GETKEY 


i less than ASCII 1BH 


53F7FB 


03270 


RET 


N 


537F FE1C 


02500 


CP 


1CH 


iKeystroke valid if less 


53F8 23 


03300 


INC 


HL 


5381 D2EC52 


02510 


JP 


NC.GETKEY 


i than ASCII 1CH 


53F? 18F2 


03310 


JR 


DSPNSG 


5364 A8 


02520 


XOR 


B 


iCheck for shifted char 


53FB CD7A0A 


03320 PRTNUd 


CALL 


0A7AH 


5365 2003 


02530 


JR 


NZ.UNSHFT 


ilf not shifted char 


S3FE CDBD0F 


03330 


CALL 


0FBDH 


5387 323C40 


02540 


LD 


(403CH1.A 


iZero arrom ro« storage 


5401 23 


03340 


INC 


HL 


53BA 76 


02550 UNSHFT 


LD 


A.B 


IRestore original char 


5402 1BE? 


03350 


JR 


OSPNSG 


536B 21B352 


02560 ARROU 


LD 


HL.START 


iRET addr for tol lotting 


5404 3E2C 


03360 PRTCOM 


LD 


A,',' 


538E E5 


02570 


PUSH 


HL 


iSave it on stack 


5406 CO3300 


03370 


CALL 


33H 


538F 212A52 


02580 


LD 


HL.OATSTR+3 


iPoint to day-of-»eek 


540? 3E20 


033B0 PRTSPC 


LD 


A,' ' 


5372 0F 


02570 


RRCA 




iShift bit into carry 


540B CD3300 


03390 


CALL 


33H 


5373 3030 


02600 


JR 


NC.BACK 


ilf key Has back/domn arr 


540E C? 


03400 


RET 




5395 34 


02610 ADV 


INC 


(HL) 


i Increment day of week 


540F 114440 


03410 GETBFR 


LD 


DE.4044H 


5376 7E 


02620 


LD 


A.(HL) 


iGet day of meek 


5412 3A5400 


03420 


LD 


A.(54H) 


5397 FE07 


02630 


CP 


7 


ils it greater than 6? 


5415 30 


03430 


DEC 


A 


539? 3802 


02640 


JR 


CiSETDAY 


iGo if valid day 


5416 C8 


03440 


RET 


Z 


539B 3600 


02650 


LD 


(HL).0 


lEIse reset to Sunday 


5417 U1A42 


03450 


LD 


DE.421AH 


5390 2B 


02660 SETDAY 


DEC 


HL 


iPoint to eonth storage 


541A C? 


03460 


RET 




537E7E 


02680 


LD 


A.(HL) 


iGet lonth 


5418 0E1E 


03470 MAXDAY 


LD 


C.30D 


53?F CD1B54 


02670 


CALL 


MAXDAY 


iGet nuiber days in eonth 


5410 FE04 


03460 


CP 


4 


53A2 2B 


02700 


DEC 


HL 


iPoint to day storage 


541F CB 


03490 


RET 


Z 


53A3 7E 


02710 


LD 


A.(HL) 


iGet current day 


5420 FE06 


03500 


CP 


6 


53A4 B? 


02720 


CP 


C 


iCoipare mith maximum 


5422 C8 


03510 


RET 


Z 


53A5 34 


02730 


INC 


(HL) 


[Advance day of month 


5423 FE0? 


03520 


CP 


7 


S3A6 D8 


02740 


RET 


C 


iFinished if val id day 


5425 CB 


03530 


RET 


Z 


53A7 3601 


02750 


LD 


(HL).l 


iElse first of nem month 


5426 FE08 


03540 


CP 


110 


53A7 23 


02760 


INC 


HL 


iPoint to month storage 


5426 C8 


03550 


RET 


Z 


53AA 7E 


02770 


LD 


A.(HL) 


iGet current month 


5429 0C 


03560 


INC 


C 


53AB FE0C 


02780 


CP 


120 


iSee if it's December 


542A FE02 


03570 


CP 


2 


53AD 34 


02770 


INC 


(HL) 


{Advance month count 


542C C0 


035B0 


RET 


NZ 


53AED8 


02800 


RET 


C 


iFinished if valid month 


5420 0E1C 


03570 


LD 


C.280 


53AF 3601 


02610 


LD 


(HLM 


iElse January of nem year 


542F 3A275Z 


03600 


LD 


A.(DATSTR) 


53B12B 


02820 


OEC 


HL 


iPoint to year 


5432 E603 


03610 


AND 


3 


53B2 2B 


02B25 


DEC 


HL 


i storage 


5434 C0 


03620 


RET 


NZ 


S3B3 7E 


02830 


LD 


A.(HL) 


iGet current year 


5435 0C 


03630 


INC 


C 


53B4 FE63 


02840 


CP 


99D 


iSee if last of century 


5436 C? 


03640 


RET 




53B4 34 


02650 


INC 


(HL1 


iAdvance year count 


5437 55 


03650 FCB 


OEFM 


'USOATE/SYS' 


5387 DB 


02B60 


RET 


C 


iFinished if val id year 


53 44 41 54 45 2F 53 5? 53 




53B8 3600 


02870 


LD 


(HD.0 


iElse reset year count 


5441 03 


03660 


DEFB 


3 



iAdd 100 years to century 
.Get current century 
.Adjust century offset 
i and re-save it 
iFinished for sure 
{Decrement day of week 
iGo if val id day 
.Else reset to Saturday 
iPoint to month storage 
iGet month 

iPoint to day storage 
.Decrement day of month 
.Finished if valid day 
iElse A=# of previous mth 
iGet t days previous enfh 
IDay=last day prev. month 
iPoint to month storage 
{Decrement month count 
iFinished if valid month 
iElse December prev. year 
iPoint to year 
; storage 

{Decrement year count 
iFinished if valid year 
iElse last yr prev cntury 
{Subtract 100 tn century 
{Adjust century t finish 
iA=A»2 (2 byte pointers) 
iL=LSB string table addr 
;H=MSB string table addr 
iA=LSB actual string addr 
{Point to MSB string addr 
;H=MSB actual string addr 
iHL=string location addr 
{Get byte to display 
{See if zero terminator 
iFinished if zero byte 
{Save sign flag status 
{Mask off bit 7 
{Display it on video 
{Restore sign flag 
{Finished it bit 7 set 
iAdvance String pointer 
IGo print next byte 
{Number in HL to ACCUM 
■Convert I to string 
{Skip leading space char 
{Display converted nuiber 
{Comma character in A 
iDisplay it on video 
{Space character in A 
iDisplay it on video 
{Back to calling routine 
iDE-Mod I date storage 
{Check which model TRS-80 
iA mill be on Model I 
{Return if Model I 
iDE=Mod III date storage 
{Pointing to Mod III date 
iC=# days in some months 
lis month Apri I? 
{Return if April 
ils month June? 
{Return -jf June 
{Is month September? 
{Return if September 
ils month November? 
{Return if November 
;C=31 (t days most mnths) 
{ 1 5 month February? 
{Return if 31 day month 
iC=t days in February 
iGet current year 
{Year divisible by 4? 
ilf not leap year 
iC=27 (# days leap Feb.) 
iFinished 
{File Control Block area 

{ mith program f i lename 



3T 



MIS 1347* DEFS 21D 

UN »34B»FILBUF DEFS 1MH 

KM 13691 SYSI DEFS 5HH 

52B3 «7M ENO START 

I TOTAL ERRORS 



; (total 32 bytes) 
!Fil« I/O buffer area 
iSTM/SYS ttw. storaje 



AOV 5395 

CHGCEN 5380 

ENDYR 52B1 

F1LBUF Si57 

JAN 525F 

MAXDAY 541B 

NOV 5299 

PRTSPC 5419 

SETDAY 539D 

THU 524? 



APR 5273 ARROW 53BB 

CHTURY 522B DATSTR 5227 

ERREXT 5368 EXIT 5361 

FNOOAT 533B FRI 5251 

JUL 527F JUN 527B 

HAY 5278 HON 5233 

OCT 5292 PROMPT 52A9 

PRTSTR 53E5 SAT 5257 

START 52B3 SUN 5220 

TIE 5239 UNSHFT 53BA 



AUG 52B3 

DEC 52A1 
FCB ,5*37 

GETBFR 5*BF 

HAR 526E 

HSG 52B0 

PRTCOM 5414 

SEP 5289 

SYS* 5557 

UPDATE 5313 



BACK 53C5 

DSPMSG 53ED 

FEB 5244 

EETKEY 52EC 

MARKER 5226 

NOTCR 5373 

PRTNUH 53FB 

SETDA2 53CB 

TABLE 52M 

UED 5241 



DEFAULT CONFIGURATIONS FOR TRSDOS 6.2 
by Daw Boner 

TRSDOS 6.2 comes configured for two drives {DEVICE 
command). If you add one or two more drives you must enable the 
drives (SYSTEM command) and then create a configuration file 
(SYSGEN command). This takes up disk space and slows the 
booting of the systea. The following patches will patch BOOT/SYS 
to default to drives :1. :2 and/or :3 enabled (or disabled). There 
are also patches to allow drives :1. .2 and/or ;3 to default to 
SIDES=2 upon power-up. 

I have provided the patches and an explanation. If the 
patches work and you don't give a hoot why, then read no further. 
If for soae reason the patches don't work on your TRSDOS 6.2, or 
you want to know what is going on, then the rest of this article 
will explain how and why. 

Of course the accuracy of this info is not guaranteed (hey, 
how can I prevent typos?!?) and nobody is perfect (especially the 
person applying these patches to your diskette), so try thea on a 
back-up diskette first. 

Patch *1 

This patch causes TRSDOS 6.2 to recognize :2 upon 
powerup without a configuration file. 

PATCH BOOT/SYS. LSIDOS (D02,84=C3:F02,84=C9) 



What you have Just done is modify the Drive Code Table 
(DCT). This table holds important information the systea needs to 
Interface with the drives. 

There are eight ten-byte entries (one for each logical 
drive, 0-7). We are only concerned with the first four (floppy) 
drives, thru 3. 

Each ten-byte entry contains the following information 
about its respective drive position. 

The first byte will be either a C3 or a C9. If it is a C3 
the next two bytes are the address of the disk I/O routines. If 
it is a C9 (C9 is a RET, return instruction) the drive is disabled. 
This is the byte to change to disable or enable the drives. A C3 
enables the drive, a C9 disables it. 

The fourth byte (of each 10-byte entry) contains flags for 
the drive specifications for each drive. Bits « 1 = step rate, 
bit 2 - time delay (1 or .5 sec), bit 3 = hard or floppy, bit 4 = 
side information for the FDC, bit 5 = 8" or 1/4, bit 6 = DDEN or 
SDEN and bit 7 = software write protection status 

The fifth byte contains more drive information. Bits thru 
3 contain the physical drive address, bit 4 = flag for alien disk 
controller (taJk about foresight, we don't even know if there is 
intelligent life in space). 

BIT 5 of this byte contains the flag for double sided 
diskettes. A "1" indicates that the diskette in this drive is 
double sided, a "0" indicates that the diskette is single sided. 
This is the bit to set (or reset) to cause the system to default 
to your sides configuration. 

Bit 6 = flag for double density capabilities. Bit 7 - 
special flag for disk accesses with TRSDOS 6.2 
Byte 6 contains FDC information, 
pyte 7 contains the highest cylinder number on the 

diskette. 

Bytes 8 « 9 contain allocation inforaation. 

Byte 10 contains contains the directory location for this 

drive position. 

This information is available, in greater detail, in the 
Model 4 Technical Reference Manual. What it doesn't tell, is 
where the darn DCT table is! 

The DCT Is located in the file BOOT/SYS.LSIDOS. On my 
diskette it is located on sector 2. It is easy to identify. Each 
ten-byte group starts with a C3 (the first two will on the 
distribution diskette) or a C9. The seventh byte will always be a 
hex 27. This will always be there because it tells the system 
that this drive position is a 40 track drive. I found it the first 
time by having Super Utility search out all the hex 27's on a 
minimum system diskette and then scoping out eacluone. 

Use and enjoy! 



Patch #2 

This patch causes TRSDOS 6.2 to recognize :3 upon 
powerup without a configuration file. 

PATCH BOOT/SYS.LSIDOS (D02,8E=C3:F02,8E=C9) 



Patch *3 

This patch causes TRSDOS 6.2 to recognize :1 as 
SIDES-2 without a configuration file. 

PATCH BOOT/SYS.LSIDOS (D02,7E=62:FO2,7E=42) 



Patch #4 

This patch causes TRSDOS 6.2 to recognize :2 as 
SIDES-2 without a configuration file. 

PATCH BOOT/SYS.LSIDOS (D02, 88=64 :F02, 88=44) 



Patch *5 

This patch causes TRSDOS 6.2 to recognize :3 as 
SIDES=2 without a configuration file. 



THE BULLETIN BOARD OF MODEM USERS' GROUP 

This is a BBS system for MUG, the Modem Users' Group. 
Membership is $20 per year and Includes 6 Issues of MODEM-LINES, 
their newsletter/ magazine. You can request membership 
information while on-line, or you can mail a check to the this 
address and the latest issue of MODEM-LINES and a membership 
application will be sent to you: MUG, Box 227, 132 Gazaa Blvd., 
Farmingdale, New York 11735 

The BBS number is (516) 742-0039 and operates at 
300/1200/2400 bps., 24 hours per day. You do NOT need to be a 
member to access the BBS (at this writing). The purpose of the 
BBS Is Information - not downloading programs. There are some 
programs available for downloading, but messages and text 
information are the main purposes of the board. Interests of the 
board include telecommunications, modem use, tips, hints, help, and 
information about other systems. Users are requested to enter 
messages concerning other BBS systems, RCP/Ms, CompuServe, 
Delphi or The Source, packet news, or any tip on modem use you 
feel will help other modem users. 

As far as I could tell, this is not a "pirate" or "cracker" 
board, but rather one that serves the legitimate interests of modem 
users. However, for some reason the message base is very 
underused, averaging about one message per day! So, if you call, 
why not leave a message concerning some aspect of 
telecommunications and help keep this board alive? 



PATCH BOOT/SYS.LSIDOS (002, 92=68:F02, 92=48) 
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PURCHASE ORDER FORM GENERATOR 
by John C. Adaas, Jr. 

Here are two versions of a user-oriented purchase order 
for* generator which can be easily customized to meet anyone's 
ordering requirements. The necessary modifications by line 
number are clearly identified near the top of the program 
listing, and the printer control codes are commented throughout 
throughout the listing In case they need to be changed from the 
current Epson/Gemini values. The only differences between the 
Model I/in BASIC version and the Model 4, BASIC version Involve 
use of the 80 column screen and position formatting with reverse 
video in the Model 4 version. Both versions are totally 
Interactive with the user via screen prompts for necessary 
inputs; certain default information is built-in through the 
above-mentioned user modifications. 



10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REN 
70 REM 
80 REM 
90 REM 
100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 



MODEL I/HI BASIC VERSION 

**•*****•***•****•*******••••••••****••••••••******** 

* PURCHASE ORDER FORM GENERATOR * 

* FOR USE WITH TRS-80 MODEL I OR III DISK BASIC * 

••••••••ft******************************************** 

* ORIGINAL VERSION BY R. ATHANASIOU * 

* MODIFIED BY J.C. ADAMS, JR. AND S.C. WILLIAMS * 
A**************************************************** 

* PRINTER CONTROL CODES ARE FOR EPSON/GEMINI * 

* AND MAY REQUIRE MODIFICATION FOR OTHER PRINTERS * 

***************************************************** 

* USER MUST MODIFY THE FOLLOWING LINES: * 



340 MASTERCARD NUMBER/EXPHMTION DATE * 

350 VISA CARD NUMBER/EXPIRATION DATE * 

360 AMERICAN EXPRESS CARD NUMBER/ * 

EXPIRATION DATE * 

390 YOUR NAME * 

400 YOUR STREET ADDRESS * 

410 YOUR CITY, STATE, ZIP CODE * 

420 YOUR TELEPHONE NUMBER * 

200 REM * 740 YOUR AUTHORIZING SIGNATURE * 

210 REM * 970 YOUR HARDWARE DESCRIPTION * 

220 REM * 980 YOUR SYSTEM SOFTWARE DESCRIPTION * 

230 REM ***************************************************** 

240 CLS :IF PEEK(14312) <> 61 THEN PRINT •214,"PRINTER OFF-LINE": 

PRINT f335,"READY PRINTER AND PRESS <ENTER>";: LINE INPUT Z$: 

CLS 

250 CLEAR 3000: LPRINT CHR$(27); CHR$(64); : REM INITIALIZE 

PRINTER 

260 U$-"$$*##.##": REM DOLLAR AND CENTS FORMAT 

270 REM FN CN$ CENTERS STRING BY PADDING LEFT BLANKS 

280 DEF FN CN$(A$,AX)= STRING$(A*/2- LEN(A$)/2-5," ")+A$ 

290 PRINT FN CN$("PURCHASE ORDER FORM GENERAT0R",64):PRINT 

300 PRINT :INPUT "IS THIS A CREDIT CARD (C) OR PERSONAL CHECK 

($) PURCHASE ";M$ 

310 ON INSTR("C$",M$) GOTO 320 ,370 : GOTO 300 

320 PRINT :INPUT "MASTERCARD (M) OR VISA (V) OR AMERICAN 

EXPRESS (A)";K$ 

330 ON INSTR("MVA",K$) GOTO 340 ,350 ,360 : GOTO 320 

340 C$(l)»"1234 5678 8765 4321";C$(2)="12/34":C$(3)=" < MASTERCARD 

>": GOTO 390 

350 C$(l)=" **** *** *** •** ":C$(2)=""/**":C$(3H' < VISA CARD 

>": GOTO 390 

360 C$(l)=" *«*« »*»*«• ***** ":C$(2)="**/**":C$(3)=" < AMERICAN 

EXPRESS CARD >": GOTO 390 

370 PRINT : INPUT "PERSONAL CHECK NUMBER "; CN$ 

380 REM INSERT YOUR ADDRESS HERE.. YOU ARE PROMPTED FOR NAME 

390 PRINT : LINE INPUT "NAME OF PURCHASER: ";A$(1) : IF 

LEN(A$(1))=0 THEN A$(l) = "JOHN Q. PUBLIC, ESQ." 

400 A$(2)="9876 MAIN STREET' 

410 A$(3)="ANYT0WN, US 98765" 

420 PN$="(987) 654 - 3210" 

430 PRINT :LINE INPUT "TODAY'S DATE (MONTH DAY YEAR): ";D$ 

440 PRINT :PRINT :LINE INPUT "TO: ";B$(1) 

450 LINE INPUT "ADDRESS: ";B$(2) 

460 LINE INPUT "CITY, STATE & ZIP (use comma): ";B$(3) 

470 PRINT : F$-"N" : INPUT "IS THIS AN ORDER FOR PERSONAL 

COMPUTER SOFTWARE (Y/N) ";F$ 

480 PRINT 

490 INPUT "TOTAL NUMBER OF ITEMS IN THIS ORDER ":N 

500 IF N > 10 THEN PRINT "**■* TOTAL NUMBER OF ITEMS IN THIS 

ORDER MUST BE <= 10 ***": GOTO 480 

510 PRINT 



520 REM NOW ENTER THE QUANTITY, DESCRIPTION AND UNIT PRICE 

530 FOR J=l TO N 

540 DL$="N" 

550 CLS :PRINT "QUANTITY of item ";J;:INPUT Q(J) 

560 PRINT : PRINT "DESCRIPTION of item ";J;" 7"; 

570 CP=PEEK(16416)+256*PEEK(16417) : POKE CP+16,2 : PRINT 

580 LINE INPUT D$(J) 

590 IF LEN(D$(J)) > 42 THEN PRINT "*•* LINE TOO LONG - REENTER 

**»" : GOTO 560 

600 PRINT : DL$="N" : INPUT "ANOTHER DESCRIPTION LINE NEEDED 

(Y/N) ";DL$ 

610 IF INSTR("Yy",DL$) <> THEN LINE INPUT DD$(J) 

620 IF LEN(DD$(J)) > 42 THEN PRINT "*** LINE TOO LONG - REENTER 

***" : GOTO 600 

630 PRINT : INPUT "UNIT PRICE (OMIT '$') ";P(J) 

640 NEXT J 

650 CLS :INPUT "SALES TAX PERCENTAGE (e.g. 0.075) IF APPLICABLE 

(ELSE 0) ";Z 

660 NP = : FOR J=l TO N : NP = NP 4 Q(J)*P(J) : NEXT J 

670 TX = NP*Z : TX = INT(TX*100 + .5)/100 

680 FP = NP + TX 

690 PRINT :PRINT "TOTAL COST OF THE ABOVE ITEMS IS ";: PRINT 

USING U$;FP 

700 PRINT :INPUT "ENTER THE SHIPPING AND HANDLING CHARGE (OMIT 

'$') ";S 

710 PRINT : SIS = "N" : INPUT "ANY ORDER-SPECIFIC INSTRUCTIONS 

(Y/N) "; SI$ 

720 IF INSTR("Yy",SI$) <> LINE INPUT 0S$ 

730 IF LEN(OS$) > 58 THEN PRINT "*** LINE TOO LONG - REENTER 

***" : GOTO 710 

740 PRINT : LINE INPUT "AUTHORIZING SIGNATURE: ";A$(6) : IF 

LEN(A$(6))=0 THEN A$(6) = "John Q. Public, Esq." 

750 IF LEN(A$(6)) > 32 THEN PRINT "**« NAME TOO LONG - REENTER 

***•• : GOTO 740 

760 FOR CC=1 TO 2 :CLS : PRINT t 404, "PRINTING PURCHASE ORDER 

770 LPRINT CHR$(27); CHR$(69); : REM EMPHASIZED PRINT 

780 LPRINT CHR$(27); CHR$(71); : REM DOUBLE-STRIKE PRINT 

790 LPRINT FN CN$("P URCHASE ORDE R". 80) 

800 LPRINT CHR$(27); CHR$(72): : REM CANCEL DOUBLE-STRIKE PRINT 

810 LPRINT : LPRINT : REM PRINTS YOUR HEADING 

820 LPRINT FN CN$(A$(1),80) 

830 LPRINT FN CN$(A$(2),80) 

840 LPRINT FN CN$(A$(3),80) 

850 LPRINT FN CN$(PN$,80) 

860 LPRINT 

870 LPRINT FN CN$(D$,80): REM PRINTS DATE 

880 LPRINT iLPRINT :LPRINT 

890 LPRINT "TO: ";: REM SUPPLIERS NAME AND ADDRESS 

900 LPRINT TAB(5);B$(1) 

910 LPRINT TAB(5);B$(2) 

920 LPRINT TAB(5);B$(3) 

930 LPRINT : LPRINT : LPRINT 

940 LPRINT "PLEASE SHIP THE FOLLOWING ITEMS:" 

950 REM IF SOFTWARE ITEMS, SYSTEM IS SPECIFIED 

960 IF INSTR("Yy",F$) <> THEN GOTO 970 ELSE GOTO 990 

970 LPRINT :LPRINT "FOR USE WITH TRS-80 MODEL 4, 128K RAM, 

RS-232C, DUAL FLOPPY DISK SYSTEM" 

980 LPRINT "RUNNING TRSDOS 6.1/6.2, LDOS 5.1.4, TRSDOS 1.3, CP/M 

2.2, AND CP/M PLUS" 

990 LPRINT 

1000 LPRINT "QTY "j 

1010 LPRINT TAB(10);"DESCRIPTION"; 

1020 LPRINT TAB(50);"UNIT PRICE"; 

1030 LPRINT TAB(67);"AM0UNT" 

1040 LPRINT STRING$(79,"="):LPRINT 

1050 T = ; REM INITIALIZE RUNNING TOTAL 

1060 FOR J=l TO N 

1070 LPRINT Q(J);: REM QUANTITY 

1080 LPRINT TAB(5);D$(J);: REM DESCRIPTION 

1090 LPRINT TAB(50); 

1100 LPRINT USING U$;P(J);: REM UNIT PRICE 

1110 P-Q(J)«P(J): REM UNIT PRICE * QUANTITY 

1120 LPRINT TAB(65); 

1130 LPRINT USING U$;P: REM ITEM TOTAL 

1140 T=T+P: REM RUNNING TOTAL 

1150 IF LEN(DD$(J)) > THEN LPRINT TAB(5);DD$(J) 

1160 LPRINT : REM SKIP LINE BEFORE NEXT ITEM 

1170 NEXT J: REM GET NEXT ITEM 

1180 LPRINT TAB(65);" " 



3d 



1190 LPRINT TAB(30)j"TOTAL FOR MERCHANDISE"; 

1200 LPRINT TAB(65) 

1210 LPRINT USING U$;T 

1220 T1-T*Z:T1= INT(Tl*100+.5)/100: REM COMPUTE TAX 

1230 LPRINT TAB(30)"SALES TAX"; 

1240 LPRINT TAB(65); 

1250 LPRINT USING U$;T1 

1260 LPRINT TAB(30);"SHIPPING AND HANDLING "; 

1270 LPRINT TAB(65) 

1280 LPRINT USING U$;S 

1290 LPRINT TAB(65);" -" 

1300 LPRINT TAB(58);"TOTAL"; 

1310 LPRINT TAB(65) 

1320 LPRINT USING U$;T+S+T1: REM TOTAL + SHIPPING + TAX 

1330 LPRINT 

1340 IF M$="C" THEN 1350 ELSE 1380 

1350 LPRINT :LPRINT "PLEASE CHARGE MY ";C$(3) 

1360 LPRINT "CARD NUMBER: ";C$(1); B 'Y'EXPIRATION DATE: ";C$(2) 

1370 GOTO 1400 

1380 LPRINT "ENCLOSED PLEASE FIND PERSONAL CHECK NUMBER "; CNJ; 

" FOR "; 

1390 LPRINT USING U$;S+T+T1 

1400 IF LEN(OS$) > THEN LPRINT OSS 

1410 LPRINT :LPRINT :LPRINT :LPRINT 

TAB(5);STRING$(32,CKR*(95));"AUTHORIZING SIGNATURE" 

1420 LPRINT CHR$(27): CHR$(52);: REM ITALIC PRINT 

1430 LPRINT TAB(5);FN CN$(A*<6),37) 

1440 LPRINT CHR$(27); CHR$(53);: REM CANCEL ITALIC PRINT 

1450 LPRINT CHR$(12);: REM FORM FEED TO NEXT PAGE 

1460 NEXT CC 

1470 CLS : 0$="N" : INPUT "DO YOU HAVE ANOTHER ORDER (Y/N)";0$ 

1480 IF INSTR("Yy",0$) <> THEN GOTO 240 ELSE PRINT 

CHR$(27);CHR$(64); : CLS : END 

MODEL 4 BASIC VERSION 

10 REM 

Mi****************************************************** 

20 REM * PURCHASE ORDER FORM GENERATOR 

• 

30 REM * FOR USE WITH TRS-80 MODEL 4 DISK BASIC 1.00 OR 1.01 

* ■ 

40 REM 

a,******************************************************** 

50 REM * ORIGINAL TRS-80 MODEL III VERSION BY R. ATHANASIOU 

• 

60 REM * MODD7IED BY J.C. ADAMS, JR. AND S.C. WILLIAMS * 

70 REM 

********************************************************* 

80 REM * PRINTER CONTROL CODES ARE FOR EPSON/GEMINI 

* 

90 REM * AND MAY REQUIRE MODIFICATION FOR OTHER PRINTERS 

* 

100 REM 

********************************************************* 

110 REM * USER MUST MODIFY THE FOLLOWING LINES: 



MASTERCARD NUMBER/EXPIRATION DATE 
VISA CARD NUMBER/EXPIRATION DATE 
AMERICAN EXPRESS CARD NUMBER/ 

EXPIRATION DATE 
YOUR NAME 

YOUR STREET ADDRESS 
YOUR CITY, STATE, ZIP CODE 
YOUR TELEPHONE NUMBER 
YOUR AUTHORIZING SIGNATURE 
YOUR HARDWARE DESCRDTION 
YOUR SYSTEM SOFTWARE DESCRIPTION 



230 REM 

.MM***************************************************** 



120 REM 

* 


• 


340 


130 REM 

* 


• 


350 


140 REM 

* 


* 


360 


150 REM 

* 


* 




160 REM 

* 


• 


390 


170 REM 

* 


* 


400 


180 REM 

* 


* 


410 


190 REM 

* 


* 


420 


200 REM 

* 


* 


710 


210 REM 

* 


* 


930 


220 REM 


* 


940 



240 CLS :IF INP(248) <> 61 THEN PRINT ft(3,30),"PRINTER OFF-LINE": 

PRINT ft(5,23),"READY PRINTER AND PRESS <ENTER>";: LINE INPUT Z$: 

CLS 

250 CLEAR : LPRINT CHRS(27); CHR$(64); : REM INITIALIZE PRINTER 

260 U*="$$###.##": REM DOLLAR AND CENTS FORMAT 

270 REM FN CN$ CENTERS STRING BY PADDING LEFT BLANKS 

280 DEF PN CN*(A$,A*)= STRING$(AV2- LRN(A$)/2-.5," ")+A$ 

290 PRINT FN CN$("PURCHASE ORDER FORM GENERATOR",80):PRDrr 

300 PRINT :INPUT "IS THIS A CREDIT CARD (C) OR PERSONAL CHECK 

($) PURCHASE ";M$ 

310 D? INSTR(1,M$,"C") - 1 THEN GOTO 320 ELSE IF INSTR(1,M$,"$") = 

1 THEN GOTO 370 ELSE GOTO 300 

320 PRINT :n«»UT "MASTERCARD (M) OR VISA (V) OR AMERICAN 

EXPRESS (A)";K$ 

330 IF INSTR(1,K$,"M") - 1 THEN GOTO 340 ELSE IF INSTR(1,K$,"V") = 

1 THEN GOTO 350 ELSE IF INSTR(1,K*,"A") = 1 THEN GOTO 360 ELSE 

GOTO 320 

340 C$(l)="1234 5678 8765 4321":C$(2)="12/34":C$(3)=" < MASTERCARD 

>": GOTO 390 

350 C$(l)=" **** *** *** *** ":CS(2)="**/**":C$(3)=" < VISA CARD 

>": GOTO 390 

360 C$(l)=" **** ****** ***** ":C$(2)="**/**":C$(3)>=" < AMERICAN 

EXPRESS CARD >": GOTO 390 

370 PRINT : INPUT "PERSONAL CHECK NUMBER "; CN$ 

380 REM INSERT YOUR ADDRESS HERE.. YOU ARE PROMPTED FOR NAME 

390 PRINT : LINE INPUT "NAME OF PURCHASER: ";A*(1) : D? 

LEN(A$(1))=0 THEN A$(l) - "JOHN Q. PUBLIC, ESQ." 

400 A$(2K9876 MAIN STREET' 

410 A$(3)="ANYTOWN. US 98765" 

420 PN$="(987) 654 - 3210" 

430 PRINT :LINE INPUT "TODAY'S DATE (MONTH DAY YEAR): ";D$ 

440 PRINT :PRINT :LME INPUT "TO: ";B$(1) 

450 LINE INPUT "ADDRESS: ";B$(2) 

460 LINE INPUT "CITY, STATE & ZIP (use CO»na): ";B$(3) 

470 PRINT :INPUT "IS THIS AN ORDER FOR PERSONAL COMPUTER 
SOFTWARE (Y/N) ";F$ 

480 PRINT 

490 INPUT "TOTAL NUMBER OF ITEMS IN THIS ORDER ";N 

500 IF N > 10 THEN PRINT "*** TOTAL NUMBER OF ITEMS IN THIS 

ORDER MUST BE <- 10 •**": GOTO 490 

510 PRINT 

520 REM NOW ENTER THE QUANTITY, DESCRIPTION AND UNIT PRICE 

530 FOR J=l TO N 

540 DL$="N" 

550 CLS :PRINT "QUANTITY of iten ";J;:INPUT Q(J) 

560 PRINT "DESCRIPTION of ite« ";J;" ?" 

570 RN~ROW(0) : PRINT ft (RN,0), STRING$(43,CHR$(143)); : PRINT ft 

(RN,0), CHR$(128); 

580 LINE INPUT D$(J) 

590 INPUT "ANOTHER DESCRIPTION LINE NEEDED (Y/N) ";DL$ 

600 IF INSTR(1,DL$,"Y") = 1 OR INSTR(l,DL$,"y") - 1 THEN RN=ROW(0) 

: PRINT t (RN.0), STRING$(43,CHR$(143)); : PRINT ft (RN,0), CHR$(128); 

: LINE INPUT DD$(J) 

610 INPUT "UNIT PRICE (OMIT '$') ";P(J) 

620 NEXT J 

630 CLS :INPUT "SALES TAX PERCENTAGE (e.g. 0.075) IF APPLICABLE 

(ELSE 0) ";Z 

640 NP = : FOR J=l TO N : NP = NP + Q(J)*P(J) : NEXT J 

650 TX = NP*Z : TX - INT(TX«100 + .5)/100 

660 FP = NP + TX 

670 PRINT :PRINT "TOTAL COST OF THE ABOVE ITEMS IS ";: PRINT 

USING U$;FP 

680 PRINT :INPUT "ENTER THE SHIPPING AND HANDLING CHARGE (OMIT 

'$') ";S 

690 PRINT : INPUT "ANY ORDER-SPECIFIC INSTRUCTIONS (Y/N) "; SIS 

700 IF INSTR(1,SI$,"Y") = 1 OR INSTR(l,SI$,"y") = 1 THEN RN=ROW(0) : 

PRINT t (RN.0). STRING$(58,CHR$(143)); : PRINT t (RN.0), CHR$(128); : 

LINE INPUT OS$ 

710 PRINT :PRINT "AUTHORIZING SIGNATURE: "; : RN=ROW(0) : 

CP=POS(0) : PRINT ft (RN.CP), STRING$(33,CHR$(143)); : PRINT • 

(RN,CP), CHR$(128); : LINE INPUT A$(6) :IF LEN(A$(6))HB THEN A$(6) - 

"John Q. Public, Esq." 

720 FOR CC-1 TO 2 :CLS : PRINT ft (10,28), "PRINTING PURCHASE 

ORDER "; 

730 LPRINT CHR$(27); CHR$(69); : REM EMPHASIZED PRINT 

740 LPRINT CHR$(27); CHR$(71); : REM DOUBLE-STRIKE PRINT 

750 LPRINT FN CN$("P URCHASE ORDE R", 80) 

760 LPRINT CHR$(27); CHR$(72); : REM CANCEL DOUBLE-STRIKE PRINT 

770 LPRINT : LPRINT : REM PRINTS YOUR HEADING 

780 LPRINT FN CN$(A$(1),80) 



flv (* 
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790 LPRINT FN CN$(A$(2),80) 

800 LPRINT PN CN$(A$(3),80) 

810 LPRINT FN CN$(PN$,80) 

820 LPRINT 

830 LPRINT FN CN$(D$,80): REM PRINTS DATE 

840 LPRINT :LPRINT :LPRINT 

850 LPRINT "TO: ";: REM SUPPLIERS NAME AND ADDRESS 

860 LPRINT TAB(6);B$(1) 

870 LPRINT TAB(6);B$(2) 

880 LPRINT TAB(6);B$(3) 

890 LPRINT : LPRIWT 1 LPRINT 

900 LPRINT "PLEASE SHIP THE FOLLOWING ITEMS:" 

910 REM IF SOFTWARE ITEMS, SYSTEM IS SPECIFIED 

920 IF INSTR(1,F$,"Y") = 1 OR INSTR(l,F$,"y") - 1 THEN GOTO 930 

ELSE GOTO 950 

930 LPRINT :LPRINT "FOR USE WITH TRS-80 MODEL 4, 128K RAM. 

RS-232C, DUAL FLOPPY DISK SYSTEM" 

940 LPRINT "RUNNING TRSDOS 6.1/6.2. LDOS 5.1.4, TRSDOS 1.3, CP/M 

2.2, AND CP/M PLUS" 

950 LPRINT 

960 LPRINT "QTY "; 

970 LPRINT TAB(ll);"DESCRIPTION"; 

980 LPRINT TAB(51);"UNIT PRICE"; 

990 LPRINT TAB(68);"AMOUNT" 

1000 LPRINT STRING$(79,"="):LPRINT 

1010 T = : REM INITIALIZE RUNNING TOTAL 

1020 FOR J=l TO N 

1030 LPRINT Q(J);: REM QUANTITY 

1040 LPRINT TAB(6);D$(J);: REM DESCRIPTION 

1050 LPRINT TAB(51); 

1060 LPRINT USING U$;P(J);: REM UNIT PRICE 

1070 P=Q(J)*P(j): REM UNIT PRICE * QUANTITY 

1080 LPRINT TAB(66); 

1090 LPRINT USING U$;P: REM ITEM TOTAL 

1100 T=T+P: REM RUNNING TOTAL 

1110 IF LEN(DD$(J)) > THEN LPRINT TAB(6);DD$(J) 

1120 LPRINT : REM SKIP LINE BEFORE NEXT ITEM 

1130 NEXT J: REM GET NEXT ITEM 

1140 LPRINT TAB(66);" " 

1150 LPRINT TAB(31);"T0TAL FOR MERCHANDISE"; 

1160 LPRINT TAB(66) 

1170 LPRINT USING U$;T 

1180 T1=T*Z:T1= INT(Tl*100+.5)/100: REM COMPUTE TAX 

1190 LPRINT TAB(31)"SALES TAX"; 

1200 LPRINT TAB(66); 

1210 LPRINT USING U$;T1 

1220 LPRINT TAB(31);"SHTPPING AND HANDLING "; 

1230 LPRINT TAB(66) 

1240 LPRINT USING U$;S 

1250 LPRINT TAB(66)," " 

1260 LPRINT TAB(59);"TOTAL"; 

1270 LPRINT TAB(66) 

1280 LPRINT USING U$;T+S+T1: REM TOTAL + SHIPPING + TAX 

1290 LPRINT 

1300 IF M*»"C" THEN 1310 ELSE 1340 

1310 LPRINT :LPRINT "PLEASE CHARGE MY ";C$(3) 

1320 LPRINT "CARD NUMBER: ";C$(1);" "."EXPIRATION DATE: ";C$<2) 

1330 GOTO 1360 

1340 LPRINT "ENCLOSED PLEASE FIND PERSONAL CHECK NUMBER "; CN$; 

" FOR "; . 

1350 LPRINT USING U$;S+T+T1 

1360 IF LEN(OS$) > THEN LPRINT OSS 

1370 LPRINT :LPRINT :LPRINT :LPRINT 

TAB(6);STRING$(32,CHR$(95));"AUTHORIZING SIGNATURE" 

1380 LPRINT CHR$(27); CHR$(52);: REM ITALIC PRINT 

1390 LPRINT TAB(6);FN CN$(A$(6),37) 

1400 LPRINT CHRS(27); CHR$(53);: REM CANCEL ITALIC PRINT 

1410 LPRINT CHR$(12);: REM FORM FEED TO NEXT PAGE 

1420 NEXT CC 

1430 CLS :INPUT "DO YOU HAVE ANOTHER ORDER (Y/N)";0$ 

1440 IF INSTR(1.0$,"Y") - 1 OR INSTR(l,0$,"y") = 1 THEN GOTO 240 

ELSE LPRINT CHR$(27); CHR$(64);:CLS:END 

GETTING THE MOST OUT OF YOUR HARD DRIVE 
by Martin Pollard 

[Reprinted from Micro Notes, a publication of the Dearborn 
TRS-80 Users Group (P.O. Box 1942, Dearborn, Michigan 48121):] 

As many of you with hard drives (running LDOS 5.1 or TRSDOS 
6) know, DOS formats the hard drive very inefficiently. Taking a 



Tandy 5-megabyte hard drive for example, each platter la formatted 
with 32 sectors per cylinder, 16 sectors per granule. This means 
that each cylinder has only two granules. Simple math will tell you 
that 256 bytes per sector times 16 sectors equals 4096 bytes, of 4K 
per granule. If you have a small file that takes up only one sector 
(.25K), that means that 3.75K of usable disk space is wasted. 
Inexcusable! But here's a method of formatting your hard drive 
that will give you 4 sectors per granule and 8 granules per track, a 
more evenly distributed allocation system (only IK per granule). 
Since there are too many hard drives out there to cover, I will 
concentrate on only the Tandy 5-megabyte hard drive, Tandy's 
drivers, and LDOS 5.1 and TRSDOS 6.2. Users of other hard drives, 
drivers, and DOSes, should be able to use the Information below to 
apply it to their system. 

1) Set up your hard drive with logical drives 4, 1, 2 and 3 
assigned to heads 0, 1, 2 and 3, respectively, using the TRSHDx/DCT 
driver ("x" is either 3 or 5 for LDOS, 4 or 6 for TRSDOS 6). 

2) You must now modify the DCT for the new granule 
allocation settings. Here is how the byte is defined: 

Bits 7-5 - Number of granules per cylinder 
Bits 4-0 = Number of sectors per granule 

In this case, the byte value is X'E3' (11100811B), which 
translates to 8 granules, 4 sectors per granule. (Each value is 
offset from zero). The addresses to modify, in table form, are: 



Drive 


LDOS 5.1 


TRSDOS 6.2 


1 


X'4712' 


X'0482' 


2 


X'471C 


X'048C< 


3 


X'4728< 


X'0496' 


4 


X'4730" 


X'04A0' 



Note that the values are known valid ONLY for LDOS 5.1 and 
TRSDOS 6.2. To modify the address, use the MEMORY command in 
the form: 

MEMORY (ADD=X'nnnn',BYTE-X'E3') 

3) Format each hard drive partition using the TRSFORMx/CMD 
utility (again, "x" is defined as above). TRSFORM wUl format the 
hard drive according to the specifications in the DCT, which is 
exactly what we wantl 

4) Copy the DOS onto drive 4 using the command: 

BACKUP /SYS:0 :4 (S.I-N) 

This copies the system files WITHOUT copying the CONFIG/SYS 
configuration file that might be present on your DOS disk. 

5) If you are using LDOS 5.1, you must now create a 
CONFIG/SYS file. This is so that, when we finally transfer control 
to the hard drive, we can copy the final CONFIG/SYS file back to 
the boot disk so LDOS recognizes it. It is strange, I know, because 
you don't need this step under TRSDOS 6. Anyway, perform the 
following command: 

SYSTEM (SYSGEN) 

and continue on. 

6) Transfer control to drive 4 by issuing the command: 

SYSTEM (SYSTEM-4) 

7) Copy any other files, utilities, etc. to the hard drive. 
After doing so, you must then save the current configuration, which 
will save the hard driver, any in-memory modules, etc., as well as 
the current DCTs. Under LDOS, you must issue the following 
commands: 

SYSTEM (SYSGEN) COPY CONFIG/SYS.CCC:0 :4 
It's easier under TRSDOS 6, just one command: 

SYSGEN (DRIVE=4) 

Your hard drive in now ready to go with your new format. I 
have been using my Tandy 5-megabyte hard drive with this format 
under TRSDOS 6.2.1 for several months now, and have not had one 
problem. If anyone tries this using LDOS 5.1, please let me know 
how error-free it is. 
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CHANGE LAZYWRITER 3.4a TO DISPLAY TRUE FREE GRANS 

ON 80 TRACK DOUBLE SIDED DISKS 

UNDER NEWDOS/80 VERSION 2 (MODEL I SD) 

by Keith Stewart 

P.O. Box 28-020, Kelburn. Wellington 5, New Zealand 

With the DIR/CMD file accessed from EDIT with (clear/break) 
Lazywriter lets you use some DOS commands and compile a list of 
directories. It was this last use which started me on patching 
DIR/CMD to enable it to display correct free grans on 80 track 
double sided drives. 

Upon execution, Dm/CMD first reads in the boot sector of the 
disk. It then gets the third byte of the boot sector, which tells 
the DOS where the directory track Is, and it puts this byte in the 
high order byte of the File Control Block it has set up and then 
reads in the sector pointed to by this byte, i.e. the first sector of 
the directory. This contains the Granule Allocation Table of the 
disk. Then it reads the GAT byte by byte looking for FF or FE or 
FD or FC which indicate which sectors and how many sectors are 
allocated in the grans. 

Starting with first byte in the buffer where the GAT sector is 
stored each byte Is compared with FF. BC is used as a counter 
and Is loaded with 50H. The value in BC is decremented for each 
byte examined. HL is loaded with OO00 and increments with for 
FF and 1 for FE or FD and 2 for FC. If the GAT byte is not FF 
then BC value is put on stack and BC loaded with 08. RLCA eight 
times to check for FE (means second sector allocated) or FD 
(means first sector allocated) or FC (means first & second sectors 
free) This comparison continues until BC=0000. The value in HL 
then is computed and the resulting number is the number of free 
grans available on the disk. 

Most TRSDOS compatible disks have 80 bytes (50H) allocated 
to the Gran Allocation Table, so that is why Lazywriter uses 50H as 
a counter. But NEWDOS/80 can extend the GAT if needed, and does 
so on 80 track double sided disks if we allocate 20 sectors per 
track. The counter has then to be changed to A0 or 160 from the 
default value of 50H. 

Using the DFS function of SUPERZAP, find File Relative Sector 
2 of DIR/CMD and MOD 68 (change byte 88) from 50 to A0. If you 
only have double sided drives then this is all you need to do to let 
LAZYWRITER display the correct free grans. This means, however, 
that Lazywriter will display false free grans on any single sided or 
40 track double sided disks. 

If you have a mixture of single sided and 80 track double 
sided drives then more than a zap is needed to make LAZYWRITER 
check for the type of drive and adjust the byte at 673DH as 
necessary. This patch uses the PDRIVE table which is stored at 
4371H to determine how many tracks are allocated to each 
respective drive and if 80 tracks how many sectors per track are 
specified (thanks to SYDTRUG for this Info.) 

Assemble the source code as PATCH/CMD. You can set ORG 
at any address. This example uses FFACH. Using a utility which 
allows multiple origins when saving a file load PATCH/CMD and 
DHl/CMD (see note 2). Of course the utility must be out of the 
way of their loading areas. Change memory at 6689H-669BH from 
CD 36 44 to C3 AC FF (or whatever your ORG is). This links 
DIR/CMD to the PATCH. Then write out DIR/CMD with the following 
parameters: 

Start 5262H 5285H 52CFH 64F0H 6E4BH FFACH 
End 5262H 5285H 52CFH 6E2CH 705DH FFFFH 

Entry 6509H 

The patch loads in high memory starting at FFACH whenever 
DIR/CMD is called. To protect this memory set HIMEM before 
calling Lazywriter if your file is likely to be that large or set up a 
DO file to set HIMEM and then load L/CMD. 

DDt/CMD reads the directory from drive when you call it 
from Lazywriter. If you want it to default to another drive then 
change the byte at 7043H in DIR/CMD or using SUPERZAP File 
Relative Sector 11 MOD 74 change this byte to 01 or 02 or 03. 

(Note 1) I had originally put the patch in an apparently empty 
memory area under LAZYWRITER so as to not have to worry about 
setting HIMEM. But when inserting tabs in EDIT the cursor inserted 
about three lines. That's why it is now in high memory. If you 
find another spare place then let me know. 

(Note 2) A fine utility which loads and save multiple origins 
files, among other things, is available from Briggs Software, 14 
Allan Berry Avenue, Napier, New Zealand. No I am not related to 
him. 
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[Editor's note: Although not written for the purpose, I 
suspect that this patch (perhaps with a slight modification) would 
also work with double density. If anyone gets this working under 
double density, please let us know what changes (if any) you had 
to make.} 
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A PATCH FOR LAZYWRITER 3.4 TO ENABLE IT TO GIVE CORRECT 
iFREE GRANS WHEN CALLING, DIR/CHO WITH MTRK OS DRIVE. 
iUSE THIS PATCH ONLY IF YOU HAVE A NIX OF MTRK OS 
lANO OTHER TYPES OF DRIVE I.E 35-40 SINGLE OR 40 DOUBLE 
iSIOEO OR M SINGLE ELSE USE MY ZAP FOR JUST MTRK DS. 
;Y0U MUST BE BE RUNNING NEUOOS M VZ AND SINGLE DENSITY 

IT CAN ASSEMBLED ANYWHERE ABOVE THE TEXT. USE HIMEM TO 
iPROTECT IT. 
:ZAP FOR DIR/CMD WHEN YOU ONLY HAVE B0TRK DS DRIVES 

DFS DIR/CMD RFS.Z.rXJDtB CHANGE 50 TO At 



FFAC 

FFAC D? 

FFAD 3A4370 

FFMFE03 

FFBZ ZB43 

FFB4FE02 

FFB6 ZB36 

FFB8FEI1 

FFBA2B2? 

FFBC 3A7443 

FFBF 217543 

FFC2FE50 

FFC4 2B0F 

FFC6 3E50 
FFCB 3Z3D67 
FFCB 3B 
FFCC3B 
FFCD 21BC66 
FFD0E3 
FFD1 0? 
FF02 C33&44 
FFD5 7E 
FFD6 FEU 
FFDB ZB03 
FFOA C3C6FF 
FFDD3EA0 
FFDF 323D67 
FFE2 C3CBFF 
FFE5 3A7E43 
FFEB Z17F43 
FFEB C3C2FF 
FFEE3A8B43 
FFF1 218943 
FFF4 C3C2FF 
FFF7 3AV343 
FFFA 217243 
FFFD C3CZFF 

TOTAL 



M1M ; 

Will i 

mn ; 
M13I ;< 

00140 ; 
00150 ; 
M160 i 
0017A ; 
MlM ; 
Mitt i 
mm i 
(1210; 
00220 i 
00230 i 
00240 i 
00250 
00260 
00270 
00280 . 
002*0 

00000 

00310 
00320 

00330 

00340 TEST0 

00350 

00360 TEST 

00370 

00380 RETB0 

00390 

00400 RETURN 

00410 

00420 

00430 

00440 

00450 

00460 TEST80 

00470 

004B0 

00470 

00500 PUTIN 

00510 

00520 

00530 TEST1 

00540 

00550 

00560 TEST2 

00570 

00560 

00570 TEST3 



00610 
00620 
ERRORS 



iKEITH STEWART BOX 28-020 WELLINGTON NEW ZEALAND 

;*MTABLE*»* REFERRED TO IN COMMENTS IS PDRIVE TABLE 
iSTORED IN MEMORY. 

ORG 0FFACH iANYWHERE TO SUIT 

EXX iSAVE IMPORTANT REGISTERS 

LD A.(7043H) >7TH BYTE OF FCB-DRIVEI 

CP 03 ilS IT DRIVE 3? 

JR Z.TEST3 iGO TO DRIVE 3 TEST IF Y 

CP 02 MS IT DRIVE 2? 

JR Z.TESTZ iGO TO DRIVE 2 TEST IF Y 

CP 01 US IT DRIVE 1? 

JR Z.TEST1 iGO TO DRIVE 1 TEST IF Y 

LD A.U374H) it TRKS FROM TABLE DR 

LD HL.4375H it SECTORS HERE DRIVE 

CP S0H IIS IT MTRK? 

JR Z.TESTM iYES GO CHECK IF DSIDEO 

LD A.0050H SHAKE SURE DEFAULT 50H 

LD (673DHM i LOAD DEFAULT INTO PROG 

DEC SP i CORRECT STACK 

DEC SP i CORRECT STACK 

LD HL,66BCH iPC VALUE NEEDED 

EX (SP)-HL iPUT ON STACK 

EXX iRESTORE REGISTERS 

JP 4436H i CONTINUE DIR/CMD 

LD A>(HL) !l SECT/TRK IN HL ALREADY 

CP UH iISIT20 IE OOUBLE SIDED 

JR Z.PUTIN iYES THEN CHANGE VALUE 

JP RETM ;N0 RETURN TO PROG. 

LD A.00A0H iLOAD A WITH 160 

LD (673DH1.A iPUT IN COUNTER ADDRESS 

JP RETURN iRETURN TO PROGRAM 

LD A.U37EH) it TRKS FROM TABLE DR 1 

LD HL,437FH it SECTORS HERE DRIVE 1 

JP TEST iGO I SEE IF M TRK 

LD A,(43B8H) it TRKS FROM TABLE DR 2 

LD HL.43MH it SECTORS HERE DRIVE 2 

JP TEST iGO t SEE IF M TRK 

LD A,(4373H) ;* TRKS FROM TABLE DR 3 

LD HL.4372H i* SECTORS HERE DRIVE 3 

JP TEST iGO I SEE IF M TRK 

END 0000 



PUTIN FFDD RETM FFC6 RETURN FFCB TEST FFC2 
TEST1 FFE5 TEST2 FFEE TEST3 FFF7 TESTM FFD5 



TEST0 FFBC 



************************************************ 
John Smith at (602) 279-1646 (Arizona) is 
seeking and willing to pay near list price for a 
copy of the VIVACE BASIC Compiler. 
************************************************ 



Mel Eisele, Route 4, Box 49-C, Portland, TN, 
37148, has a 128K Model 4F he is willing to it 
sell. Call Mel at (615) 325-9387. ji; 



r 



HEX TO DECIMAL OR DECIMAL TO HEX 'U' ROUTINE FOR TASMON 
by Nate Salsbury 

[This Is another of our assembly language progran listings 
where the docuaentation appears as coeaents within the source 
code. For reasons that will be obvious as you study the- source 
code, we are unable to print this In our noraal "expanded" source 
code foraat (showing the hex bytes for each Instruction). Here's 
the source code listing:] 



HIM 

Mill 

M1ZI 
M130 
MUI 

M150 
M160 
M170 
M1B0 
M190 
002M 
M210 

00220 
00230 
002*0 

00250 
MZM 
00271 

M2M 

m» 

M310 
M321 
M33f 
M340 
00350 

mt» 

M370 
M3B0 
00390 



00410 

mil 

00430 
00440 
00450 

ttut 
mn 
met 
mn 

005H 

01511 
00520 
M53f 

00540 

00551 

00570 

M5M 
00590 



• HEX TO DECIMAL OR DECIMAL TO HEX * 

• 'U' ROUTINE FOR TASHON « 



NATE SALSBURY 

610 NADAH NOORE'S LANE 

NEW BERN, NC 2B560 

m«HW++tmtttt+m+tmt+++m««+«ttm++HttH 

This routine provides a 'U'ltr function to TASHON 
to convirt 4 hex digit* to die in I or 5 dtciul 
digits to their htx equivalent. 

OPERATION OF MODIFIED TASMON (AFTER HiniNE 'U') 

TO CONVERT DECIMAL TO HEX, HIT '0' FOLLOWED BY 
5 DECIMAL DIGITS (0 - 9) . NUMBERS LESS THAN 
10,Mf MUST HAVE LEADING ZEROS E.G. M183 

TO CONVERT HEX TO DECIMAL, HIT 'H' FOLLOWED BY 
4 HEX CHARACTERS (0 - 9 OR A - F). 

YOU ARE RETURNED TO THE TASMON PROMPT AFTER 
EACH CONVERSION. 



Then an a number of different version! of 
TASHON ehich have been published. In addition, 
you nay have relocated' yours to other than the 
distribution ORG. 

The »0rkin9 part of this program is added beyond 
the end of TASMON. It uses several TASMON rou- 
tines for keyboard entry. For each EQUate, I 
shoe addresses tor tour versions of TASHON plus 
a routine tor locating* the proper place if you 
have a different version. 

This can be done by using the TASMON 'Find' rou- 
tine, starting at the loading address for your 
version. I'll describe a byte sequence to 'Find' 
eith instructions on ehat to do then. 

First, load your version and eith the 'Viev' coi- 
■and, find the starting, ending and transfer add- 
ress for your version. Record thee here. 



■Your starting address 
•Your ending address 
iYour transfer address 



START EQU nnnnH 
00611 FINISH EQU nnnnH 
00620 TRANS EQU nnnnH 
00630 i 

00640 iSince the TASHON addresses used are for the distribution 
00650 
00660 
00670 
00680 
00690 
M7M 
M710 
M720 
00730 
M741 
M750 



iversions, it eill be necessary to coepute an 'offset'. 

J 

iReaove the see i col on for the version you use. 



iOFFSET EQU 
iOFFSET EQU 
iOFFSET EQU 
iOFFSET EQU 



START-6M0H 
START-6M0H 
START-0EM0H 
START-3000H 



iModel III, '05' version 

'Model III, '07' version 

iModel 4, Version 1.10 

iModel 4, Version 1.12 



I 



This prograe uses the following TASMON routines 
Renove the initial see i col on tor the EQU you need 

00760 ifor your version ot TASMON. 

00770 i 

01780 ;mn+«+ttmm+tm+++H+mm+mn«+t++++m++++ 

00770 iHEXINP EQU 6S41HtOFFSET iHIM, '05' 



0M10 
00B20 
0M30 
00B40 



iHEXINP EQU 
iHEXINP EQU 
iHEXINP EQU 



6S67HtOFFSET 

0E56FHtOFFS£T 

35D3H+0FFSET 



;ttllli '07' 
iH4> 1.10 
;H4, 1.12 



10870 



>0r> use the 'Find' coaaond troa your START address 
iand look for CB 27 67 CO. Disassemble the code at 
ithe address shoen and then back up (using the '-' key) 
ito find the tolloeing sequence 1 

i 

CD nnnn 20 FB CD nnnn CD nnnn CB27CB27CB27CB27 67 



00910 iThe address you eant is that of the first 'CD'. 

M920 ;fmn+mmtmmnttmmmtmmtmmmttmt 

00930 i 

60Elr»OFFSET iMIII, '05' 

6fEtmOFFSET iMIII, '07' 

0E0FlHtOFFSET ;H4, 1.10 

31SAWOFFSET irtt, 1.12 



00940 iKYBORO EQU 

M950 iKYBORO EQU 

00960 iKYBORO EQU 

00970 iKYBORO EQU 

009B0 i . 

01990 iUse the 'Find' cowand froa your START to locate: 

010N i 

01010 iFE 2A CC. Disassemble at that address and back 

01020 iup to find' CO nnnn FE 2A CC. The address you 

01030 i should use is the one tor the CD instruction. 

01040 ; mm+mt+tmttmtt-mt+t+tmttmmm+mmt 
01050 ; 

01060 iVALIDH EQU 6SB4H+0FFSET iMIII, 'D5' 

01070 iVALIOH EQU 45AAHWFFSET iMIII, '07' 

010M iVALIDH EQU 0E5B2WOFFSET ;H4, 1.10 

01090 iVALIOH EQU 3616H+OFFSET !H4, 1.12 

0UM i 

01110 ;0r, use the 'Find' conand to locate' 

01120 i 

01130 iFE M ZB F9. Disasseable at that address and back 

01141 iup to locate' CD nnnn FE H 28 F9. The address of 

01151 ithe CD is the one you eant. 

01160 iwtttfHfttttmmmHwwwmtttmtmmfm 

01170 i 

7A1CH+OFFSET 
7B1ZH+0FFSET 
0F870H+OFFSET 
4B80H+0FFSET 



iUR 
iUR 
iWR 
iWR 



EQU 
EQU 
EQU 
EQU 



iMIII, '05' 
iMIII, 'D7' 
;H4, 1.11 
;M4, 1.12 



01181 
01190 
012M 

01210 

01220 

01230 iUse the 'Find' cowand to locate: E5 DO E5 05. 

01240 iOisasseeble at the address shoen and back up one byte. 

01250 iYou should find C5 E5 DO E5 05 DD 21. The address 

01260 iyou eant is that of the CS instruction. Check that 

01270 iyou have the correct group of these bytes by disas- 

012M iseabling the earlier instructions to find' 

01290 i 

013M i23 EB 47 70 Z3 IB 7A B3 20 F9 C3 nnnn C5 etc. 

01310 i 

01321 'i H«ttt+««t+«ttn+tH+++Ht4++++ttmt++m+++t 

01330 i 

69SBH+0FFSET 
69C6H+0FFSET 
0E9A2H+OFFSET 
39F7HtOFFSET 



EQU 
EQU 
EQU 
EQU 



iMIII, '05' 
IMIII, '07' 
;H4, 1.10 
iH4, 1.12 



01340 iWL 

01350 iWL 
01360 iUL 
01370 iUL 
013M i 

01390 iThis address is harder to find because there are 
014M ino 'address independent' bytes nearby to locate. 
01410 ;0ne «y is to detereine the address tor the UR routine 
01420 iabove. Then, after noting the absolute value far UR, 
01430 iuse your 'Find' coiiand to locate' CD (LSB) (MSB) C3 
01440 iehcre (LSB) and (MSB) are the usual Z-81 address entry 
11451 ifor UR in reverse order. The address located in this 
11461 iaanner is the one you eant for VL. 
11470 i 

01490 i 

015M iThe last address needed is the location of the 'juip' 

01510 iaddress for the 'U' coaaend. 

01520 iJUMP EQU olDCHtOFFSET iMIII, '05' 

01S30 iJUMP EQU 60EIH+OFFSET iMIII, '07' 

01540 iJUMP EQU 0E0ECH+OFFSET iM4, 1.10 

01S50 iJUMP EQU 3155H+0FFSET iH4> 1.12 

01560 i 

01570 

01SM 



On use the 'Find' routine to look tor FE 55 CA. 
The address you eant is that of the byte FOLLOWING 



11590 ithe CA byte. 
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urn : 

01610 iUtmtwtwtt«mmH«ttmt+t+mtm+wm++t 

11421 i 

01630 i For reference, titrt is- a list Of thi functions 

01640 i of tht TASHON routines used. 

01650 i 

01660 iHEXINP . TASHON 4-CHAR HEX INPUT 

01670 iKYBORO GET KBRD CHARACTER AND 

01680 .PROCESS 'BREAK' KEY 

01490 iVALIDH GET HEX CHARACTER 

01700 iUL DISPLAY (A) + SPACE 

11711 ;UR DISPLAY (A) 

•172* i 

«730 i«fm++++m+tt+++++H+t+t++++++++tm+t++m+++++ttt 

•1741 i 

11750 iTo install this utility, asssible it to disk an sayt 

01760 iTASHON/CM.. Hake a nott of the addriss of LAST at 

01771 ithe vary and of this listing.. 

01780 i 

01790 iActivatl your TASHON oodule and Load TASMON/OVL. After 

01800 {testing your nsa 'U' function) you should than 'Writ* 

01810 itht aodif ltd version back to disk using your STARTi tha 

01820 inotad address tor LAST as th< and ins address and START 

11830 ;u tha transfir address. 

01840 i 

Vies0 imtwtwmttttntt+tH++ttmmt+«+tHtff+tf+t«t 

01860 ORG JUMPWFFSET i'U' JP AODR IN TASHON 

01870 DEFU CONVRT iAOOR FOR THIS ROUTINE 

01860 ; 

01890 ORG FINISH+10H i JUST PAST END OF TASHON 

01700 CONVRT CALL UL iOlSPLAY 'U' t SPACE 

01711 XOR A iZERO ACCUHULATOR 

01920 LO (CHARCT).A iSET I OF CHARS ■ 

01930 GETCHR CALL KYBORO i GET A CHARACTER 

01940 CP 'H' iCONVERTING HEX? 

019S0 JR Z.HEXOEC iGO IF SO 

Mi» CP 'D' .CONVERTING OECIHAL? 

01970 JR NZ.GETCHR i INVALID KEY-GET ANOTHER 

01980 i 

01990 ! CONVERT DECIMAL INPUT TO HEX 

02000 ; 

02010 CALL UL iDlSPUY '0' + SPACE 

02020 LD BC.BUFFER iPOINT TO DECIMAL STORAGE 

02030 GETDEC CALL VAL1DH iZ FLAG SET IF HEX CHAR 

02040 JR NZ.GETDEC ;N0T VALID HEX CHAR 

02050 CP 3AH i> 9 ? 

02040 JR NCiGETDEC SNOT 0-9 SO GET ANOTHER 

02070 CALL UR JDISPLAY DIGIT - 9 

02080 LO <8C) .A iANO STORE IT 

02090 INC BC iPOINT TO NEXT SPOT 

02100 LD A.(CHARCT) iGET I DIGITS SO FAR 

02110 INC A iBUHP COUNT 

02120 LO (CHARCTM iSAVE COUNT 

02130 SUB 5 iHAX * OF CHARACTERS 

02140 JR NZ.GETDEC ilF < 5. GET ANOTHER 

02150 ; 

02140 iTHIS DECIMAL TO HEX CONVERSION ROUTINE TAKEN FROM 

02170 i'NORE TRS 80 ASSEMBLY LANGUAGE PROGRAMMING' BY 

02180 iBILL BAROEN. PAGE 313. RADIO SHACK CAT. NO 42-2075 

02190 i 

02200 iTHE ORIGINAL ROUTINE IS MODIFIED TO REJECT DECIMAL 

02210 i INPUTS OVER 65535. 

02220 i 

02230 ; 

02240 LD HL.BUFFER iPOINT TO STORED I 

K2S0 LD 8.5 iNUHBER OF DIGITS 

02240 LD IX.0 

02270 OR A iRESET CARRY 

02280 DECHEX ADD IX.1X ; INTERMEDIATE »Z 

02290 RET C !>45S35. BACK TO TASHON 

02300 PUSH IX iSAVE 

02310 AOD IX. IX i»4 

02320 JR C.TOOBIG i> 65535 

02330 ADD IX. IX !«8 

02340 JR C.TOOBIG !>45535 

02350 POP DE {RETRIEVE »2 

02340 ADD IX.DE i*10 

02370 RET C i>45535. BACK TO TASHON 

02380 LD A.(HL) iGET DIGIT 

02390 SUB 30H iREHOVE ASCII BIAS 



02400 


LD 


E.A 


02410 


LD 


D.0 


02420 


ADD 


IX.DE 


02430 


RET 


C 


02440 


INC 


HL 


02450 


DJNZ 


OECHEX 


02440 


PUSH 


IX 


02470 


POP 


HL 


02480 


LD 


A.20H 


02490 


CALL 


UR 


02500 


LD 


A.H 


02510 


CALL 


SHIFT 


02520 


LD 


A.H 


02530 


AND 


0FH 


02540 


CALL 


ASCII 


02550 


LO 


A.L 


02560 


CALL 


SHIFT 


02570 


LO 


A.L 


02580 


AND 


0FH 


02590 


CALL 


ASCII 


02600 


RET 





iSTORE IN E 

i(0E) HAS HEX VALUE 

iMERGE 

i>45535. BACK TO TASHON 

iPOINT TO NEXT DIGIT 

iDO THIS FOR 5 DIGITS 

iNOU. TRANSFER RESULT 

iTOHL 
iPRINT A SPACE 

iFIRST TUO HEX DIGITS 
iSHOU HI NIBBLE AS ASCII 
iGO FOR LOU NIBBLE OF (H) 
iSTRIP 4 HIGH BITS 
i DISPLAY ASCII VALUE 
iOO THE SAME FOR <L> 



DE 



iFIX STACK 

i>65535 - BACK TO TASHON 



02610 TOOBIG POP 

02420 RET 

02630 i 

02440 i CONVERT HEX INPUT TO DECIMAL 

02650 i 

02660 HEXDEC CALL UL iDISPLAY 'H' + SPACE 

02470 CALL HEXINP iGET 4 VALID HEX CHARAC- 

02480 ITERS INTO HL VIA TASHON 

02490 LD A.20H iBLANK SPACE 

02700 CALL UR iPRINT IT 

02710 i 

02720 i(HL) ' 4 HEX DIGITS HERE. THE FOLLOWING HEX TO 

02730 iOECIHAL CONVERSION IS TAKEN FROM: 

02740 {'ASSEMBLY LANGUAGE LIBRARY 15' BY CRAIG LINDLEY 

02750 ilN "THE ALTERNATE SOURCE", VOLUME III. NUMBER 5. P 134. 

02760 i 

02770 LD IX.TENTBL iPOINT TO TABLE 

02780 OEC0H LD B.UXfl) iNSB OF DECIMAL VAL 

02790 LD C.(1X) iLSB OF DECIMAL VALUE 

02800 OR A iCLEAR CARRY 

02810 LD A.30H iASCII '0' 

02820 OEC012 SBC HL.flC iSUBTRACT POUR OF 10 

02830 JR C.DEC013 iGO WHEN RESULT ( 1 

02840 INC A iBUHP DECIMAL VALUE 

02850 JR DEC012 iKEEP GOING 

02860 OEC013 ADO HL.BC iFIX REMAINDER 

02870 CALL UR iSHOU DECIMAL DIGIT 

02880 LD A.C ' iCHECK FOR END OF TABLE 

02890 CP 1 iUHEN (0 = 1 

02900 RET Z iTO TASHON 

02910 INC IX iELSE. POINT TO 

02920 INC IX iNEXT ITEM IN TABLE 

12930 JR DEC011 iAND PROCESS NEXT CHARAC 

02940 SHIFT SRL A iSHIFT HI NIBBLE TO LOU 

02950 SRL A 

07960 SRL A 

02970 SRL A 

02980 ASCII CP 0AH iCHECK IF 0-9 

02990 JR C.DECM iGO IF SO 

03000 AOD A.7 iADJUST FOR HEX CHARACTER 

03010 DECH ADD A.30H i CONVERT TO ASCII 

03020 CALL UR iAND DISPLAY IT 

03030 RET 

03040 TENTH. DEFU 10000 

03050 DEFU 1000 

03060 DEFU 100 

03070 DEFU 10 

03060 DEFU 1 

03090 CHARCT DEFB iCOUNT OF DECIMAL DIGITS 

03100 BUFFER OEFS 5 iSTORAGE FOR DEC. INPUT 

03110 LAST EOU * 

03120 END 



fit 






44 



r 



tr 



ACCESSING U.S. ONLINE INFORMATION SERVICES FROM OTHER 
COUNTRIES 

It's often difficult enough for the novice modem user to 
figure out how to get online with a mainframe information utility 
here in the United States. First, you have to figure out how to 
get your modem hooked up properly, and how to use your terminal 
program. Then you have to know how to access the information 
utility you want to reach, usually by way of a packet switching 
network. It's all really simple once you know how to do It, but 
learning how can be quite frustrating for some users. 

Well, it can be even more frustrating for users outside of the 
United States, who have the additional complication of going 
through the local packet •witching network (provided by the local 
PTT) and then Interconnecting with a U.S. packet network via a 
"gateway". Most online services are able to Instruct their overseas 
users on how to make the connection to that point. But then you 
get online, and certain types of file transfers (particularly those 
using XMODEM protocol) Just don't seem to work right! 

Some CompuServe subscribers have figured out how to make 
their local packet networks behave correctly. Since the commands 
for packet network operation tend to be similar around the world, 
these Instructions may be useful to those in other countries. If 
the local packet network provides any kind of instruction sheet or 
"quick reference" cord, by all means try to obtain one and then 
compare the commands used with those shown below. You may find 
that the commands you need to use are very similar. 

CANADA 

For those of us In Canada that access U.S. based information 
services via Datapac and would like to upload or download with 
XMODEM protocol, here are the commands that Datapac requires for 
proper transmission via XMODEM: 

Note: underscore indicates a space and Is mandatory! 

Control-P 
PR0F_1 <Return> 

8ET_126:004,003:000,004:004,001:000 <Retura> 
<Return> 
GOODBYE <Return> 



That's all It takes. Happy downloading! 



JLG (Joe Gagnon) 



r 



JAPAN 

For those of us in Japan that access U.S. based information 
services via KDD's Venus-P and would like to upload or download 
with XMODEM protocol, here are the commands that Venus-P 
requires for proper transmission via XMODEM: 

Rules for resetting for Packet: After connecting to CIS, and 
CIS gives "!" Prompt mark, then it's the proper time to change 
parameters. 

Easy (for downloading only) method: 
Control-P 

SET73:12e,4:4,9.-0,13:0,14K),15HI,20:lTe <Return> 
<Return> 
GO [to wherever you want to be In CompuServe) <Return> 

Another more difficult (for down/uploading) method: 
Control-P 

SET?lK),2.-0,3:126,4:4.12:0.9H).13K>.14rf).15K) <Return> 
<Return> 
Go [to wherever you want to be in CompuServe] <Return> 

That's all it takes. Happy downloading from fareast Japan! 

Klyomasa Ono [70127,247] at Tokyo, Japan 

UK EUROPE INTERNATIONAL PACKET SWITCHING X.2S PAD 

PARAMETER 
Text document giving information about PAD parameters in the 
UK, how to set them and what works for XMODEM. Try 'Command-p 
PROF TP' for a transparent mode. Experience gained through trial 
and error, parameters from BT Reference Card No. 2, comments and 
corrections solicited. 

James Putnam 70346,1372 



A few notes about accessing CompuServe from the UK 
(Parameters Follow): 



British Telecom Packet Switch System (PSS) dial-up PADs 
(these are the devices you call up - the full name Is Packet 
Assembler Disassembler) have only 18 parameters numbered 1 to 18. 
While the login procedure usually gives you a usable set of 
parameters, I have noticed some differences when using the same 
procedure, so if you want to be sure then set up a macro and set 
. the parameters every time you log In. 

To get the PAD's attention send a 'control-P'. Note that how 
you do this may be different with different software. For example 
with Jazz type 'shlft-command-P' with most other software it's 
'command-P'. Next type 'PAR?<return>' to get a list of current 
parameters which will look like: '1: 01.2:0,3: 126,...18:18'. You can ask 
for only certain parameters with 'cntl-P PAR?l,3,6...<return>' 

Next set the parameters to the values you want with 'cntl-P 
SET l:l,3:4,6:l...<return>'. These are example numbers not for use. 
Only the parameters you set will be affected. Check your work 
with another 'cntl-P PAR?<return>'. 

There Is a short cut If you want to use one of the 20 
standard profiles. These are A1-A931,B2,D1J)2.V1-V5,SP,TP. These 
are set with the PROF command: "PROF TP<return>'. I think TP Is 
the most important because it sets up Transparent mode which lets 
everything go through both ways. Be careful because once this 
command is set the only way to reset it is to hang up. .If you 
want to check out the various profiles (except TP) first let the 
profile with the PROF command and then read back the parameters 
with the PAR? command. The TP profile is 
0,0,0,20,0,0.2,0,0,0^.0,0,0.0,127,24,18. 

Parameter Summary 

No. 



Function Description 


Values 


Effect 


Escape froo Olti Transfer 





Escape off 




1 


Escape on 


Ecko 


D 


Echo off 




1 


Echo on 


Data Foruard Character! 





None 




1 


A-Z.a-z.D-? 


(Noti> values ny be fussed 


2 


CR 


to achieve a crab i nation. 


4 


ESCiBELiENQ.ACK 


eg 124 » All characters 


8 


DQ..CAN.DCZ 


betueen Nut and 16 of 


14 


ETX.EOT 


International Alphabet No.5.) 


3Z 


HT.LF.VT.FF 


(IA5) 


M 


All chars, betueen NUL and US 
of IA5 not included above. 



Data forearding tiieout 



None 

1-255 1-2S5 x 1/20 seconds tiieout 
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Ancillary device control 



1 


Control oft 
Control on 


Suppression of PAD service 
ii snail 



1 


Suppression on 
Suppression off 


Action of PAD on receipt 
of the Break Signal 
free the DTE-C 



1 
2 
5 

8 

21 


No action 

PAD transmits INTERRUPT Pit 

PAD transaits RESET Ptt. 

PAD transaits INTERRUPT Pkt 

and indication of Break. 

PAD escapes fron Data 

Transfer state. 

PAD transaits INTERRUPT Pkt 

and indication of Break and 

sets PAO paraaeter 8 to 1. 


Suppression of data 



1 


Suppression off 
Suppression on 


Padding after CR 



1-7 


Terainal speed dependent 
1-7 padding characters 


Line Folding 



1-255 


No line folding 

Line folding after 1-255 

characters 


Tereinal Speed 

(a 'read only' parameter) 



2 
3 


110 bit/5 

300 bt/s 
1200/1200 bit/s 



12 Flow control by DTE-C 



Line feed imirtion after 
carriage nturn 



14 
17 
IB 



Piddin9 inserted after 
line feed character 

Editing 

Character delete character 
Buffer delete character 
Buffer display character 



1-7 



255 



1200/75 bit/s 

Floe control off 
Floe control on 

No LF insertion 
LF inserted after CR 
froa DTE-P * 
LF inserted after CR 
echoed to DTE-C 
As tor Value 1 + 4 
As for 4 + LF 
inserted in data to DTE-P 
Value 1 t 4 

No padding characters 

1-7 padding characters after LF 

Editing off 
Editing on 

Character delete off 
Deciial code of delete char. 



Buffer display oft 
-2SS Deciial code of delete char. 

Buffer display off 
1-255 Deciial code of display char. 



That's it. Good luck and long live x.25! 

James Putnam [70346,1372] 



KEEPING THE CORRECT TIME 

by Jack Decker 



This article covers both a hardware and a software solution 
to keeping the correct time (particularly when the fast clock speed 
of the Model 4 is used in the Model HI mode). 

First, the hardware modification: It's called GCLOCK and 
there are models available for the Model in. 4, or 4P, for external 
or external mounting (you have to specify which computer you 
have, and which mounting style you want, when ordering). The 
internal unit requires a little experience in working with hardware 
(mostly soldering) to install, but leaves the external bus connector 
free in case you need it (to run a hard disk drive, or some other 
external hardware unit). It has been designed to not interfere with 
other internally mounted boards (such as a graphics board, etc.). 

GCLOCK uses a standard lithium battery from Radio Shack 
that is fairly inexpensive and that should last for years. But I 
think the best thing about it is that the time is read directly from 
ports 30H through 3FH, so that software routines that access the 
clock do not have to be unnecessarily complicated. Model 4P users 
that do a lot of work in the Model HI mode really have it made, 
because a routine that reads the GCLOCK and then transfers the 
correct time to the normal real-time clock storage locations can be 
patched right into the MODELA/III ROM image, thus keeping the 
system clock always accurate no matter which DOS is used. 
Patches are also available for use with TRSDOS 6.x / LS-DOS 6.3. 

Steve Wemyss, the designer of GCLOCK, says that a few 
people have even trashed their Alpha NEWCLOCKs in favor of his 
design. I can believe It, it works very well and appears to be a 
really well-designed unit. For more information, contact GSOFT, 89 
Peachey Road, Elizabeth Fields, South Australia 5113. Australia. The 
price in Australia is $85.00 but since the Australian dollar is worth 
quite a bit less than the U.S. dollar, the cost would be less here in 
the U.S. even after the additional shipping charges are figured In 
(if you want to go ahead and place an order, the shipping charges 
will probably be about $5.00 additional. Your bank can give you 
the current exchange rate on Australian money, and U.S. checks can 
be cashed in Australia, or some banks can give you a bank draft in 
Australian dollars). 



Now the software solution, which is a lot less expensive but 
not nearly as accurate, for Model 4 users that run NEWDOS/80 in 
the Model m mode. 

Many methods have been published to invoke the 4 MHz CPU 
speed of the Model 4 from the Model III mode. The process is ^^ 
relatively simple, in that one need only set bit 6 of the byte at y/p 
memory location 4210H and then output that byte to port OECH. 
This has only one major drawback, and that is that the system " 
clock runs twice as fast. 

The following program invokes the fast clock speed and 
patches the Model m version of NEWDOS/80 to keep the correct 
time (well, as correct as it ever was under the slow speed, 
anyway). It Uses only nine bytes of high memory. Once the source 
code shown below is assembled to a /CMD file, you can simply 
execute that /CMD file from NEWDOS/80 READY and It will take 
care of the rest. This program has been used with the Syslink BBS 
in Sault Ste. Marie, Ontario (705-253-5366, 300/1200 bps) to permit 
much faster operation while still keeping the correct time. Just 
one more reminder, this program runs under NEWDOS only and is 
Just about guaranteed to crash the system if you try and run it 
under any other DOS! If this doesn't meet your needs try the 
GCLOCK, it's a lot more accurate and doesn't have to be reset 
every time you power-up the computer. 



4000 

6000 3A5400 
4003 3D 

6004 CB 

6005 213E40 
600S ED5B1144 
600C 010700 
600F EDBB 
4011 ED531144 
4015 13 

4014 F3 
4017 ED535C45 
. 401B 213140 
401E 115745 
4021 010500 
4024 ED60 
4024 211042 

4029 7E 
402A F440 
402C 77 
4020 D3EC 
402FFB 

4030 C9 



4031 3E1E 
4033 BE 



4034 07 

4035 CC 



4034 77 
4037 215A45 
403A 7E 
403B EE07 
403D77 
403E C9 

403E 

4000 
00000 TOTAL 



00100 
00110 
00120 
00130 
00140 
■90150 
00140 
00170 
001B0 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00240 
00270 
002B0 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00340 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00440 
00470 
004B0 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00540 
00570 
005B0 
00590 
00400 
ERRORS 



,THE FOLLOWING PATCH IS TO NEWDOS/80 (MODEL III) 
iTO SPEED UP THE CPU CLOCK SPEED TO 4 MH7. UHlLE STILL 
iKEEPING THE SYSTEM TIME CORRECT. 



INTLZE 



ORG 

LO 

DEC 

RET 

LD 

LO 

LD 

LDDR 

LD 

INC 

DI 

LO 

LO 

LD 

LD 

LD1R 

LD 

LD 

OR 

LD 

OUT 

EI 

RET 



w00H 

A.I54H) 

A 

Z ° 

HL.END 

DE.I4411H) 

BCiEND-PATCH+1 

(4411H),DE 
DE 

(455CH1.DE 
HL.NEUCOD 
DE.4557H 
BC.5 

HL.4210H 

A.(HL) 

40H 

(HL).A 

[0ECH1.A 



iJUST HERE TIL RELOCATED 
iGET BYTE FROM RON 
iCHECK IF ON MODEL 1 
iBAIL OUT IF MODEL I 
SEND OF UNRELOCATED PGRM 
iEND OF UNPROTECTED MEM 
iLENGTH OF MAIN PROGRAM 
iMOVE THE PROGRAM 
iSAVE NEU HIMEM POINTER 
iDE=START RELOCATED PRGRM 
iDlSABLE INTERRUPTS 
iREPLACE CALL ADDRESS 
iCODE TO BE RELOCATED 
iPLACE TO STUFF IT 
(BYTES TO MOVE 
iNOVE THE CODE 
iPOINT TO PORT 0ECH MASK 
iEET MASK BYTE 
iSET BIT 4 
iRE-SAVE MASK BYTE 
;l OUTPUT IT TO PORT 0ECH 
jRE-ENABLE INTERRUPTS 
iEXIT RELOCATOR ROUTINE 



iCODE TO BE RELOCATED 



NEUCOD LD A.1EH iROM CLOCK COUNTER VALUE 

CP (HL) iVALUE JUST UPDATED? 
iFOLLOUING INSTRUCTION IS XOR'ED WITH ITSELF IN LINE 540, 
iTO ALTERNATELY HAKE IT AN 'RLCA' OR 'NOP' INSTRUCTION. 
IMS MEANS THAT ON ALTERNATE PASSES THE VALUE IN A WILL 
iEITHER BE DOUBLED (FROM 1EH TO 3CH) OR LEFT AS IS. 

rlca iDOUBLE IT (OR NOP HERE) 

DEFB 0CCH iSTART OF 'CALL Z" INST. 



;THIS IS THE ACTUAL PATCH CODE 



PATCH 



LD 

LD 

LD 

XOR 

LD 

RET 



(HL).A 

HL,455AH 

Ai(HL) 

7 

(HL).A 



END EQU $-1 

END INTLZE 



;REL0AD VALUE (IE OR 30 
iPOINT TO 'RLCA' OR "NOP' 
iGET CURRENT INSTRUCTION 
i CHANGE IT TO THE OTHER 
iSTORE IT BACK 



iUSED BY RELOCATOR 



END 



403E INTLZE 4000 NEUCOD 4031 PATCH 4034 



Vtyf 
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Public Domain 



Each of the following disks are "public domain". This means that the authors have agreed to allow users to 
copy the programs and share with their friends with no cost or obligation. Some of the products contain 
solicitations requesting that you send an additional contribution to the author of the program. The 
contribution Is completely voluntary; you will probably wish to contribute to author of the programs you 
actually decide to use. Contributions help maintain an author's Interest In developing more software for 
your system. 



Order 
Code 

D8PD01 

D8PD02 

D8PD03 

D8PD04 

D8PD05 

D8PD06 

D8P007 

D8P008 

D8PD09 

D8PD10 

D8P011 

D8PD12 



Contents Description 



Price 



Order 

Code Contents Description 



Price 



Miscellaneous l/l II programs/ 

Newdos/80 programs $10 

Terminal and Communications programs/ 

Miscellaneous Mod 4, MultlDos, Dosplus $10 

Programs from Northern Bytes (N.B.)/ 

Games $10 

Programs from Northern Bytes/ 

Northern Bytes and Bilingual Hangman $10 

Mint-BBS and Programs frcm N.B./ 

Programs from Northern Bytes 5-7 $10 

Programs by Jerry Vabulas/ 

A potpourri of mlseel laneous programs $10 

Programs from Northern Bytes 6-1 , 6-2/ 

Programs from Northern Bytes 6-3 $10 

The Chicago Greene Machine/ 

Miscellaneous l/IH programs $10 

Video Manager and others by Mel Patrick 

HELP file creator and more by M Patrick $10 

Keyboard Macro and more by Mel Patrick/ 

More mlseel laney by Mel Patrick $10 

Printer Support/Pile Compare/ 

Comm and others by Mel Patrick $10 

File Manager/Progs from N.B. 6-4, 6-5/ 

Mod 4 SET0ATE, Northern Bytes 6-4, 6-5 $10 



D8PD13 Northern Bytes 6-6, 6-7 and 6-8/ 

Drive cleaner, other mlseel laney $10 

D8PD14 Dennis Allen's TRSD0S 6.2 Utilities/ 

More 6.2 Utilities and FREEWARE $10 

D8PD15 Squeeze/Unsqueeze I, HI and 4/ 

More squeeze utilities $10 

D8PD16 Library Utilities I, III and 4/ 

More library utilities $10 

D8PD17 I, Ml and 4 access to MSD0S libraries/ 

More by David Huelsmann $10 

D8PD18 Roxton Baker's STCPPER and other misc./ 

STCPPER source and other misc. $10 

D8PD19 Roxton Baker's TRAKCESS/ 

More TRAKCESS Utilities $10 

D8PD20 Programs frcm Northern Bytes 7-2/ 

Printer Utilities and PD font files $10 

D8PD21 Model 4 monitor, other mlseel lany/ 

Model 4 Smart Terminal and others $10 

D8PD22 Utilities and Font files/ 

Programs frcm Northern Bytes 7-2, 7-3 $10 
D3CLAN The Clan Geneologlcal Data Base System $10 
D8ND1 Newdos/80 Patches and Upgrades $10 

D8BPD1 ISAR Data File Manager $10 

D86PD1 Public Domain Games Library $10 

D1F The Alternate Forth <7 diskettes) $25 

D3F The Alternate Forth (4 diskettes) $25 



Use the coupon below to order. Send your completed order form to: 

The Alternate Source Information Outlet 

704 North Pennsylvania Avenue 

Lansing, Ml 48906-5319 

(517) 482-8270 



r a 




VjS^ 


r i 

^MasterCard 



fer!^ 



.2^ 



Yes, please send me the following public domain diskettes: 



Code 



Price 



Code 



Price 



Your Name: 
Address: 
Address: 



Clty/State/Z!p: 



Shipping: 
Total Amount: 



Charge Card Number: 
Expiration Date: 



Please Include $3 with your order for shipping 

and handling. 
Foreign orders, be sure to specify surface or 
AIR MAIL shipping and Include appropriate shipping. 
Please do NOT send CASH through the mall! 
Michigan Residents please add 4? sales tax. 

U.S. orders are shipped UPS unless you Include 
a Box Number 



NORTHERN BYTES 




Subscription Information 

Northern Bytes is published on an irregular basis by 
The Alternate Source Information Outlet. Back Issues 
are available starting with Volume 5. Number I. 
Issues prior to that are not available. Currently there 
are eitfht back issues available for Volume 5. and 
eifiht back issues for Volume 6. as well as all issues 
from Volume 7. All back issues prior to Volume J. 
Number 3 are $2 each. Back issues starting with 
Volume 7, Number 3 are $4 each prices include all 
shipping charges unless you live overseas and request 
airmail delivery, in which case we may charge extra to 
cover postage]. 

It is very easy to be placed on the Northern Bytes 
REGULAR list. Simply Place your address. Visa or 
Mastercard number and expiration date on file with 
us. We wil start with the issue you request. We do 
not bid you for ANY ISSUE until that issue has been 
mailed. This way. we can continue to offer you top 
quality information with absolutely no risk to you 
There's no question of what to do about unfulfilled 
issues if we decide to quit publishing. Unless 

Call or write, but 



otherwise requested, we presume your subscription 
will extend through the month of your credit card 
expiration date. PLEASE NOTE your card expiration 
date fwhich will appear on your mailing labelJ and be 
sure to send us your new card number and/or 
expiration date when you receive it to assure 
uninterrupted delivery of Northern Bytes. 

Don't have a charge card, huh? We understand the 
myriad of reasons for not having them and we feel 
that a "To-Be-lnvoiced" policy could help increase 
the demand for Northern Bytes. The Alternate 
Source maintains a regular list of readers that have 
asked TO BE BILLED for each issue, you then send a 
check fmade payable to The Alternate Source 
Information Outlet J for each issue as you receive it. 
If you don't send a check, we presume that your 
interest has died and discontinue your subscription. 
The only requirement for getting onto the list is to pay 
for the first issue up front; the next will be mailed 
automatically, if you request. Vou are assured that 
you will receive top of the line TRS-80 information as 
it is released. Ask to be Placed on the NO RISK 
"To-Be-lnvoiced Northern Bytes List". 

SIGN OR TODAV! 
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The Alternate Source Information Outlet 

704 North Pennsylvania Avenue 

Lansing. Michigan +**%?-** **■ 

EMAIL: Com^eM: 72°7 n .t«* / MCI Mai.: .09-7407 / Telex: 650.097407 MCI 
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The Alternate Source Information Outlet 

704 North Pennsylvania Avenue 

Lansing. Michigan 48906-53.9 

Telephone: f5I7J 482-8270 

CompuServe EasyPtex: 72167.16! 

Ma Mail: 109-7407 

Telex: 6501097407 (Answerback: 650.097407 MCI} 



Bulk Mali 

U.S. Pottage PaM 

Pem>lt815 

Lansing, Ml 
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